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这 是 一 本 在 国外 比较 有 名 的 Scheme 编程 语言 的 入 门 教材 。 本 教材 适合 任何 对 
Scheme 编程 语言 感 兴趣 的 人 阅读 ， 尤 其 是 有 其 他 编程 语言 (特别 是 动态 语言 ) A 
程 经 验 ， 和 希望 快速 了 解 Scheme 的 不 同 点 并 且 快 速 上 手写 点 东西 的 人 。 然 而 希望 系 
统 学 习 Scheme 编 程 的 学 生 仍 然 是 本 文 的 读者 之 一 。 


该 教程 中 的 大 部 分 内 容 都 能 在 常见 的 Scheme 入 门 教 材 中 找到 ， 本 教材 中 比较 有 特 
色 的 是 关于 continuation 和 call/cc 的 内 容 ， 这 也 是 Scheme 的 一 大 特点 。 第 
十 三 章 很 详细 的 讲解 了 continuation 和 call/cc ， 十 四 十 五 章 是 它们 的 应 用 。 
然而 由 于 本 人 理解 不 够 深入 ， 这 部 分 (其 实 整个 文章 都 是 ) 翻译 得 不 堪 辛 读 ， 所 以 
有 问题 请 对 照 英文 原文 理解 ， 也 欢迎 大 家 的 反馈 | 


2009 年 的 时 候 heros 翻 译 了 这 篇 文章 的 一 部 分 (至 第 六 章 未 完 ) 。2010 年 的 时 
候 lispor 写 了 一 份 本 教程 的 读书 笔记 。2012 年 的 时 候 又 有 人 试图 翻译 这 篇 文章 。 不 
过 后 来 貌似 没有 下 文 。Scheme 的 R5RS 规 范 已 经 在 2004 年 被 译 成 了 中 文 ， 而 这 篇 
实践 性 比较 强 的 文章 却 没 有 完整 的 中 文 译 版 。 所 以 自己 翻译 了 一 份 (前 六 章 基 本 是 
用 的 hero 的 版 本 ) ， 本 人 也 是 第 一 次 接触 Scheme， 水 平 有 限 ， 大 家 多 多 和 包涵。 
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许可 (License) 


本 译文 的 发 布 遵循 与 英文 原文 相同 的 LICENSE( 即 GNU Lesser General Public 
License)。 如 有 问题 ， 请 联系 我 。 


This translated version is published under the same license(viz, the LGPL license) 
of the orginal english version. If you have any question, please contact me. 


关 于 
献 给 所 有 Scheme 的 有 缘 人 
愿 智慧 仁爱 之 光 永远 照 焰 技 术 发 展 的 道路 
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该 教程 中 的 大 部 分 内 容 都 能 在 常见 的 Scheme 入 门 教材 中 找到 ， 本 教材 中 比较 有 特 
色 的 是 关于 continuation 和 call/cc 的 内 容 ， 这 也 是 Scheme 的 一 大 特点 ， 从 
这 点 来 说 有 过 一 些 编程 经 验 (特别 是 Python 和 Javascript 等 动态 语言 ) 的 程序 员 会 
觉得 《Teach Yourself Scheme in Fixnum Days》 非 常 适合 他 们 ， 因 为 他 们 只 有 看 
一 眼 马 上 就 明白 了 Scheme 与 其 他 语言 相同 的 地 方 ， 因 此 对 某 些 千 千 叫 叫 讲 语法 等 
基础 知识 的 教程 感到 厌烦 。 而 这 篇 文章 主要 是 讲 Scheme 不 同 于 其 他 编程 语言 的 地 
方 ( 不 包括 语法 ) ， 以 及 这 种 不 同 是 如 何 应 用 在 Scheme 的 代码 中 产生 神奇 的 效果 
的 。 当 然 还 有 一 些 命令 行 和 网 站 CGI 的 东西 ， 也 许 某 些 人 希望 了 解 一 些 。 当 然 你 也 
可 以 像 我 一 样 把 它 作为 学 习 SICP 的 入 门 辅导 书 。 此 外 ， 本 文 还 可 以 作为 
MzScheme ( 即 现 在 的 Racket 语 言 ， 之 前 叫 PLT-Scheme) 的 入 门 教程 。 因 为 本 文 
Až M #4 Scheme & HL BP %< MzScheme ° A Z RAŽ J Racket Lisp 但 感觉 缺乏 基础 
的 同志 可 以 看 看 。 


译文 缘起 及 正名 


2009 年 的 时 候 heros 翻 译 了 这 篇 文章 的 一 部 分 (至 第 六 章 未 完 ) 。2010 年 的 时 

候 lispor 写 了 一 份 本 教程 的 读书 笔记 ， 翻 译 了 很 多 内 容 (而 我 直到 2014 年 毕 设 做 完 

也 没有 看 到 ) 。2012 年 的 时 候 又 有 人 试图 翻译 这 篇 文章 。 不 过 后 来 貌似 没有 下 文 。 
Scheme 的 R5RS 规 范 已 经 在 2004 年 被 译 成 了 中 文 ， 而 这 篇 实践 性 比较 强 的 文章 却 

迟 迟 没有 一 个 完整 的 中 文 译 版 。 所 以 自己 翻译 了 一 份 (前 六 章 基本 是 用 的 hero 的 版 
A) ， 第 六 章 后 面 又 自己 翻译 了 一 些 ， 顺 便 把 附录 也 翻译 了 。 这 里 要 特别 感谢 我 的 
同学 何 ufo， 虽 然 他 也 不 是 很 懂 Scheme， 不 过 还 是 翻译 了 第 七 至 第 十 二 章 ， 我 只 是 
对 他 的 翻译 做 了 一 些 润色 和 校 验 (你 发 现 了 其 实 卜 正 由 我 翻译 的 内 容 不 是 很 多 ， 只 
是 做 了 一 些 汇总 和 润色 的 工作 而 已 ， 所 以 我 也 不 敢 以 “ 译 者 "自居 ) 。 本 人 也 是 第 一 

次 接触 Scheme， 水 平 有 限 ， 大 家 多 多 包涵 。 后 期 的 任务 就 是 看 根据 lispor 的 笔记 来 
校对 整个 译文 。 


《Scheme 语言 简明 教程 》 这 个 名 字 已 经 被 用 小 了 ， 我 见 过 N 篇 大 同 小 异 的 、 国 内 
外 的 Scheme 教程 都 是 这 个 名 字 (当然 它们 都 没 怎么 

提 continuation 和 call/cc ) 。 所 以 这 样 很 不 利于 SEO。。。。 不 过 翻译 成 
《N 天 学 会 Scheme》 或 者 《无 师 自 通 Scheme 语 言 》 又 好 像 有 点 太 俗 ， 而 且 你 发 现 
了 作者 很 聪明 的 用 了 一 个 “Fixnum Day" 而 不 是 常见 的 21 天 或 者 3 天 等 等 ， 这 让 我 这 
个 英语 水 平 不 怎么 样 的 人 很 难 把 意思 翻译 完整 。 暂 时 没 想 到 更 好 的 名 称 ， 先 就 这 样 
ve, o 
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首先 感谢 原 作者 Dorai Sitaram 给 我 们 提供 这 么 好 的 Scheme 教 程 ， 他 一 直 在 维护 本 
x (直到 2013 年 仍 有 更 新 ) 


其 次 要 感谢 本 文 之 前 的 几 位 翻译 者 ， 没 有 他 们 的 工作 我 肯定 无 法 把 后 面 的 翻译 完 
(估计 现在 还 在 前 几 章 打转 呢 一 ) 


然后 还 要 感谢 我 的 毕 设 老师 ， 如 果 没 有 毕 设 催 着 ， 我 肯定 没 法 完成 这 个 工作 (虽然 
大 一 就 打算 着 看 一 遍 但 是 大 四 了 也 没 开始 看 。。。) 


最 后 感谢 王朝 学 长 的 博客 CSS 模 板 ~( 写 了 这 么 多 到 底 有 没有 两 万 汉字 啊 ? ?2 ? ) 
特别 的 感谢 给 我 的 爸爸 妈妈 ， 也 布 望 所 有 看 本 文 的 人 也 都 能 站 正 幸福 地 生活 。 


这 是 一 篇 Scheme 编程 语言 的 介绍 。 本 文 的 目标 是 成 为 一 篇 快速 上 手 教程 。 从 未 接 
触 过 Scheme 的 新 手 可 以 在 学 习 更 复杂 更 深入 的 知识 以 前 通过 本 文 获得 一 些 简 明 撼 
要 的 关于 Scheme 语言 的 可 实际 操作 的 知识 。 


本 文 描述 了 一 种 干净 利落 但 实用 有 效 的 编写 Scheme 程序 的 方法 。 虽 然 我 们 不 会 按 
照 索 引 把 从 A 到 Z 开 头 的 所 有 阴 数 都 介绍 一 遍 ， 但 是 我 们 也 不 会 回避 Scheme 一 些 难 
理解 的 、 凌 乱 的 、 非 标准 、 不 常用 但 是 却 可 用 或 很 有 用 的 内 容 。 包 括 call-with- 
current-continuation， 系 统 接口 和 方言 的 多 样 性 。 我 们 的 讨论 将 围绕 我 们 将 解决 的 
问题 展开 ， 而 不 是 为 了 让 读者 对 元 语言 有 什么 领悟 ， 因 此 我 并 没有 按照 传统 的 
Scheme 教程 的 思路 来 撰写 本 文 。 本 文 没有 深入 的 教学 方法 ， 没 有 讲解 Scheme 语 
义 ， 没 有 元 循环 解释 器 ， 也 没有 讨论 Scheme 底层 的 实现 ， 也 没有 论述 Scheme 的 优 
点 。 这 并 不 是 说 这 些 东 西 是 不 重要 的 ， 而 是 说 它们 与 某 些 人 正在 寻找 的 “快速 教程 
(REMAX) "LK 


能 有 多 快 呢 ? 我 不 知道 一 个 人 是 否 能 在 21 天 学 会 Scheme1， 虽 然 我 听 有 人 说 精通 
Scheme 的 基本 内 容 应 该 一 个 下 午 就 够 了 。Scheme 语 言 的 标准 所 有 精准 和 复杂 
的 定义 都 包括 进去 只 有 五 十 页 长 。 这 可 能 是 因为 卜 正 对 Scheme 的 大 彻 大 悟 

( 当 它 到 来 时 ) ， 只 需 一 个 下 午 ， 尽 管 在 那 之 前 不 知 要 花费 多 少 个 下 午 。 这 就 是 我 
的 简单 介绍 。 








感谢 Matthias Felleisen 把 Scheme 和 高 阶 编程 介绍 给 我 ， 以 及 Matthew Flatt 创 造 了 
可 靠 和 优雅 的 MzScheme 实 现 (本 书 使 用 的 Scheme 即 是 MzScheme ) 


一 个 Fixnum 是 一 台 机 器 认为 “很 小 "的 一 个 整数 ， 每 个 机 器 对 Fixnum 都 可 以 有 自 
己 的 看 法 


大 大 


第 一 章 : 进入 Scheme 


经 典 的 第 一 个 程序 通常 是 把 一 个 "Hello world!" 显示 在 控制 台 上 。 用 你 最 喜欢 
的 编辑 器 ， 创 建 一 个 名 为 hello.scm 的 文件 ， 并 在 里 面 输入 以 下 内 容 : 


;The first program 

(begin 
(display "Hello, World!") 
(newline) ) 


第 一 行 是 一 个 注释 ， 当 Scheme 发 现 一 个 分 号 ， 就 把 分 号 和 这 一 行 分 号 后 面 的 文字 
都 忽略 了 。 


begin 74) (原文 为 form) 是 Scheme 用 来 包括 子 语句 的 方式 ， 这 个 例子 里 有 两 
个 子 语 句 。 第 一 名 调用 了 display 过程， 该 过 程 会 输出 它 的 参数 (字符 

# "Hello, World!" ) 到 控制 台 (或 者 叫 “ 标 准 输出 ”) 后 面 一 名 调用 

了 newline 过 程 ， 该 过 程 输出 一 个 换行 。 


想 要 运行 这 个 程序 首先 需要 启动 Scheme， 通 常 只 需要 在 你 操作 系统 的 命令 行 下 面 
输入 你 的 Scheme 可 执行 程序 的 名 字 即 可 。 如 果 你 用 的 是 MzScheme， 你 需要 在 操 
作 系 统 提示 符 后 面 输入 : 


mzscheme 


这 将 调用 Scheme listener 程 序 ， 这 个 程序 读 取 你 的 输入 ， 求 值 ， 打 印 结果 (如 果 有 
的 话 ) ， 然 后 等 待 你 的 下 一 次 输入 。 由 此 这 通常 被 称 为 “ 读 取 - 求 值 -打印 ”的 循环 。 注 
意 这 和 你 操作 系统 的 命令 行 没 有 太 大 区 别 ， 操 作 系 统 的 命令 行 也 读 取 你 的 命令 ， 执 
行 ， 然 后 等 待 其 他 命令 。 和 操作 系统 一 样 ，Scheme listener 有 它 自己 的 提示 符 一 一 
通常 是 > ， 但 也 可 能 是 其 他 的 东西 。 


在 Scheme listener 里 ， 加 载 文件 hello.scm 。 直 接 运 行 下 面 的 语句 即 可 : 


(load "hello.scm") 


Scheme 现在 执行 hello.scm 文 件 的 内 容 ， 输 出 Hello, world! 接着 后 面 是 一 个 换 
行 符 。 然 后 你 又 得 到 了 命令 提示 符 ， 可 以 输入 更 多 命令 。 


现在 由 于 你 有 一 个 很 好 用 的 listener， 所 以 你 用 不 着 每 次 把 你 的 程序 写 到 一 个 文件 里 
然后 load 它 ， 有 有 时候， 特别 是 当 你 想 试 试 某 些 东 西 的 时 候 ， 直 接 在 listener 的 提 
示 符 后 面 输入 表达 式 然 后 看 结果 会 更 简单 。 比 如 ， 在 Scheme 的 提示 符 下 输入 : 


(begin (display "Hello, World!") 
(newline) ) 


Ww 


会 得 到 : 


Hello, World! 


事实 上 ， 你 可 以 简单 地 在 提示 符 后 面 输入 "Hello, World!" 然后 你 可 以 得 到 作为 
结果 的 字符 串 : 


"Hello, World!" 


因为 这 是 listener 对 "Hello, World!" 求 值 的 结果 。 


第 二 种 方式 产生 的 结果 除了 有 双 引 号 以 外 ， 两 段 程序 还 有 一 个 标志 性 的 区 别 。 第 一 
段 (用 begin 开头 的 ) 并 没有 做 任何 的 运算 ， 而 显示 的 结果 

是 display 和 newline 过 程 的 副作用 向 标准 输出 写 出 来 的 。 第 二 段 程 

序 ， "Hello, World!" 运算 得 到 的 结果 在 这 个 情况 下 和 这 个 字符 串 本 身 是 一 致 
的 。 


以 后 ， 我 们 会 使 用 标记 => 来 表示 运算 。 就 像 这 样 E => v 表示 语句 段 E 运算 得 
到 结果 值 为 v 。 例如 : 


(begin 
(display "Hello, World!") 
(newline) ) 


"Hello, World!" 
=> "Hello, World!" 


在 上 面 两 种 代码 情况 下 ， 我 们 运行 完 后 还 是 停 在 命令 提示 符 后 。 如 果 要 退出 
Scheme， 输 入 (exit) ， 这 样 会 退出 Scheme 命令 行 。 

Scheme 命令 行 非 常 便 于 交互 式 的 测试 程序 和 程序 片 FE o 然而 这 绝 不 是 必须 的 A 你 
当然 可 以 坚持 传统 的 方式 完全 在 文件 中 来 创建 程序 ， 然 后 用 Scheme 来 执行 它们 而 
不 使 用 任何 明显 的 命令 行 。 


在 MzScheme 中 ， 例 如 你 可 以 在 操作 系统 的 命令 行 中 这 样 输 


mzscheme -r hello.scm 


这 样 不 需要 和 Scheme 命令 行 打交道 就 可 以 产生 问候 的 结果 了 。 在 问候 结果 产生 
后 ，mzscheme 将 会 退回 操作 系统 的 命令 提示 。 这 几乎 就 像 是 你 直接 写 
f echo Hello , World! 


你 甚至 可 以 把 hello.scm 当成 是 一 个 系统 命令 来 看 待 (一 个 内 核 脚 本 或 批 处 理 文 
件 )， 但 具体 得 等 到 第 十 六 章 来 讲解 。 


第 二 章 数据 类 型 


数据 类 型 是 一 组 相关 的 值 信 息 集 。 各 种 数据 类 型 互相 联系 ， 而 且 它 们 通常 是 具有 层 
次 关系 。Scheme 拥 有 丰富 的 数据 类 型 : 有 一 些 是 简单 的 类 型 ， 还 有 一 些 复合 类 型 
由 其 它 的 类 型 组 合 而 成 。 


2.1 简单 数据 类 型 


Scheme 中 的 简单 数据 类 型 包含 booleans (布尔 类 型 )，number (数字 类 型 )， 
characters (字符 类 型 ) 和 symbols (标识 符 类 型 ) 。 


2.1.1 Booleans 


Scheme 中 的 booleans 类 型 用 #t ` #f 来 分 别 表示 true 和 false。Scheme 拥 有 一 
M boolean? 的 过 程 ， 可 以 用 来 检测 它 的 参数 是 否 为 boolean 类 型 。 


(boolean? #t) => AE 
(boolean? "Hello, World!") => #f 


而 not 过 程 则 直接 取 其 参数 的 相反 值 做 为 boolean 类 型 结果 。 


(not #f) => #t 
(not #t) => #f 
(not "Hello, World!") => #f 


最 后 一 个 表达 式 清晰 的 显示 出 了 Scheme 的 一 个 便捷 性 : 在 一 个 需要 boolean 类 型 的 
上 下 文中 ，Scheme 会 将 任何 非 #f 的 值 看 成 true。 


2.1.2 Numbers 


Scheme 的 numbers 类 型 可 以 是 integers ( 整 型 ， 例 如 42 )， rationals (有 理 
数 ， 例 如 22/7 )， reals (实数 ， 例 如 3.14159 )， 或 complex ( 复 

数 ， 2431 )。 一 个 整数 是 一 个 有 理 数 ， 一 个 有 理 数 是 一 个 实数 ， 一 个 实数 是 一 个 
复数 ， 一 个 复数 是 一 个 数字 。 


Scheme 中 有 可 供 各 种 数字 进行 类 型 判断 的 过 程 : 


(number? 42) => #t 


(number? #t) S 
(complex? 2+3i) => #t 
(real? 2+3i) => #f 
(real? 3.1416) => HE 
(real? 22/7) => Xt 
(real? 42) Se 
(rational? 2+31) => #f 


(rational? 3.1416) => #t 
(rational? 22/7) => Ht 
(integer? 22/7) => SE 
(integer? 42) pon rae 


Scheme 的 integers( 整 型 ) 不 需要 一 定 是 10 进 制 格式 。 可 以 通过 在 数字 前 加 前 组 
#b 来 规定 实现 2 进 制 。 这 样 #b1100 就 是 10 进 制 数 字 12 了 。 实 现 8 进 制 和 16 进 
制 格式 的 前 组 分 别 是 #0 和 #x 。(decimal 前 级 #d 是 可 选项 ) 


我 们 可 以 使 用 通用 相等 判断 过 程 eqv? 来 检测 数字 的 相等 性 。( eqv? 有 点 类 似 引 
用 的 相等 判断 ReferenceEquals) 


(eqv? 42 42) => #t 
(eqv? 42 #f) =e fi 
(eqv? 42 42.0) => #f 


不 过 ， 如 果 你 知道 参与 上 比较 的 参数 全 是 数字 ， 选 择 专门 用 来 进行 数字 相等 判断 
的 = 会 更 合适 些 。( = 号 运 萌 时 会 根据 需要 对 参数 做 类 型 转换 ， 
如 (= 42 "42") 运算 结果 是 #t ) 


(= 42 42) => #t 
(= 42 #f)  -->ERROR!!! 
(= 42 42.0) => #t 


其 它 的 数字 比较 还 包括 < ，<= ，> ，>= 


(< 3 2) => #f 
(>= 4.5 3) => #t 


+, -,*,/, expt 等 数学 运算 过 程 具 有 我 们 期 待 的 功能 。 


(+ 1 2 3) =o 56 
(- 5.3 2) Ses 
(- 521) =a 
(29-23) => 6 
(/ 6 3) => 2 
(e225 7) S 7 
(expt 2 3) => 8 
(expt 4 1/2) => 2.0 


对 于 一 个 参数 的 情况 ， - 和 / 过 程 会 分 别 得 到 反 数 和 倒数 的 结果 。 


max 和 min 过 程 会 分 别 返回 提供 给 它们 的 参数 的 最 大 值 和 最 小 值 。 它 们 可 以 支 
持 任何 的 数字 。 


abs 过 程 会 返回 提供 给 它 参 数 的 绝对 值 。 


(abs 3) = 3 
(abs -4) => 4 


这 些 还 只 是 冰山 一 角 。Scheme 提 供 一 整套 丰富 数学 和 三 角 运 算 过 程 。 比 如 atan , 
exp ,和 sqrt 等 过 程 分 别 返 回 参 数 的 余 切 、 自 然 反 对 数 和 开 方 值 。 


它 更 具体 的 数学 运算 过 程 信 息 请 参阅 Revised^5 Report on the Algorithmic 
Scheme 


2.1.3 Characters 


Scheme 中 字符 型 数据 通过 在 字符 前 加 #\ 前 组 来 表示 。 像 #\C 就 表示 字符 c 。 
那些 非 可 视 字 符 会 有 更 多 的 描述 名 称 ， 例 如 ，#Nnewline , #\tab 。 空 格 字符 可 
以 写成 A ， 或 者 可 读 性 更 好 一 些 的 #\space 。 


字符 类 型 判断 过 程 是 char? 


(char? #\c) => #t 
(char? 1) =>> Hf 
(char? #\;) => #t 


需要 注意 的 是 数据 的 分 分 号 字符 不 会 引发 注释 


字符 类 型 数据 有 自己 的 比较 判断 过 程 : char=? 
char>? , char>=? 


, char<? , char<=? 


(char=? #\a #\a) => #t 
(char<? #\a #\b) => #t 
(char>=? #\a #\b) => #f 


要 实现 忽略 大 小 写 的 比较 ， 得 使 用 char-ci HARA char 过 程 : 


(char-ci=? #\a #\A) => #t 
(char-ci<? #\a #\B) => #t 


而 类 型 转换 过 程 分 别 是 char-downcase 和 char-upcase 


(char-downcase #\A) => #\a 
(char-upcase #\a) => #\A 


2.1.4 Symbols 


AY eo AAT PT IUA] 89 fal BE RAAB AR AIPM o WH Rte RIE OAR He A A 
了 任何 这 些 类 型 的 数据 ， 运 算 后 会 返回 和 你 输入 内 容 是 一 样 的 结果 。 


> 
42 => 42 
#\C => #\C 


Symbols 并 没有 相同 的 表现 方式 。 这 是 因为 Symbols 通 常 在 Scheme 程序 中 被 用 来 当 
做 变量 的 标识 ， 这 样 可 以 运算 出 变量 所 承载 的 值 。 然 而 Symbols 是 一 种 简单 数据 类 
型 ， 而 且 就 像 characers、numbers 以 及 其 它 类 型 数据 一 样 ， 是 Scheme 中 可 以 传递 
的 有 效 值 类 型 。 


创建 一 个 单纯 的 Symbol 而 非 变量 时 ， 你 需要 使 用 quote 过 程 : 


(quote xyz) 
=> XYZ 


因为 在 Scheme 中 经 常 要 引用 这 种 类 型 ， 我 们 有 一 种 更 简便 的 方式 。 表 达 式 
'E 和 (quote E) 在 Scheme 中 是 等 价 的 。 


Scheme 中 symbols 由 一 个 字符 串 来 命令 。 在 命名 时 不 要 和 其 它 类 型 数据 发 生 冲突 ， 
比如 characters 、booleans、numbers 或 复合 类 型 o 

4% this-is-a-symbol ， i18n ° <=> ， 和 $!#* 都 是 symbols， 而 

16 ， 1+2i > #t ， "this-is-a-string" 和 '("hello" "world") 都 不 是 
symbols 类 型 数据 ，' ("hello" "world") 是 一 个 只 包含 两 个 字符 串 的 List 。 


用 来 检查 symbols 类 型 数据 的 过 程 是 symbol? 


(symbol? 'xyz) => #t 
(symbol? 42) => #f 


Pe 型 通常 都 是 不 区 分 大 小 写 的 。 因 此 calorie 和 calorie 是 
价 的 


(eqv? ‘Calorie 'calorie) 
=> #t 


我 们 还 可 以 使 用 define 将 symbol 类 型 的 数据 如 xyz 当成 一 个 全 局 的 变量 来 使 
用 : 


(define xyz 9) 


这 样 可 以 就 创建 了 一 个 值 为 9 的 变量 xyz .。 如 果 现在 直接 在 Scheme 命令 提示 符 
后 输入 xyz ， 这 样 会 将 xyz 中 的 值 做 为 运算 结 


o 


XYZ 
=s 9 


如 果 想 改变 xyz 中 的 值 可 以 用 set! 来 实现 : 


(set! xyz #\c) 


现在 xyz 中 的 值 就 是 字符 #\c Toe 


o 


复合 数据 类 型 是 以 组 合 的 方式 通过 组 合 其 它 数据 类 型 数据 来 获 和 


2.2.1 > Strings 


字符 囊 类 型 是 由 字符 组 成 的 序列 (不 能 和 symbols 混 淆 ，symbols 仅 是 由 一 组 字符 来 
命名 的 简单 类 型 ) 。 你 可 以 通过 将 一 些 字符 包 上 闭合 的 双 引 号 来 得 到 字符 囊 。 
Strings 是 自 运 算 类 型 。 


"Hello, World!" 
=> "Hello, World!" 


还 可 以 通过 向 string 过 程 传递 一 组 字符 并 返回 由 它们 合并 成 的 字符 串 : 


(string #\h #\e #\1 #\1 #\0) 
=> "hello" 


现在 让 我 们 定义 一 个 全 局 字符 串 变 量 greeting ° 
(define greeting "Hello; Hello!") 


注意 一 个 字符 事 数 据 中 的 分 号 不 会 得 到 注释 。 


一 个 给 定 字符 串 数 据 中 的 字符 可 以 分 别 被 访问 和 更 改 。 通 过 向 string-ref 过 程 
传递 一 个 字符 串 和 一 个 从 0 开始 的 索引 号 ， 可 以 返回 该 字符 串 指 定 索 引号 位 置 的 字 
符 。 


(string-ref greeting 0) 
=> #\H 


可 以 通 在 一 个 现 有 的 字符 囊 上 追加 其 它 字符 囊 的 方式 来 获得 新 字符 囊 : 


(string-append "E " 
"Pluribus " 
"Unum" ) 

=> "E Pluribus Unum" 


你 可 以 定义 一 个 指定 长 度 的 字符 串 ， 然 后 用 期 望 的 字符 来 填充 它 。 


(define a-3-char-long-string (make-string 3)) 
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Vit #2 string? ° 


通过 调用 string > make-string 和 string-append 获得 的 字符 串 结果 都 是 
可 修改 的 。 而 过 程 string-set! 就 可 以 替换 字符 串 指 定 索引 处 的 字符 。 


(define hello (string #\H #\e #\1 #\1 #\0)) 
hello 

=> "Hello" 

(string-set! hello 1 #\a) 


hello 
=> "Hallo" 


2.2.2 Vectors (向 量 ) 


Vectors 是 像 strings 一 样 的 序列 ， 但 它们 的 元 素 可 以 是 任何 类 型 ， 而 不 仅仅 是 字符 ， 
当然 元 素 也 可 以 是 Vetors 类 型 ， 这 oo 维 向 量 的 好 方式 。 


这 使 用 五 个 整数 创建 了 一 个 vector : 


(vector 0 1 2 3 4) 
=> #(0 1 2 3 4) 


注意 Scheme 表现 一 个 向 量 值 的 方式 : 在 用 一 对 小 括号 包括 起 来 的 向 量 元 素 前 面 加 


了 一 个 国字 符 。 
和 make-string 过 程 类 似 ， 过 程 make-vectors 可 以 构建 一 个 指定 长 度 的 向 量 : 
(define v (make-vector 5)) 


而 过 程 vector-ref 和 vector-set! 分 别 可 以 访问 和 修改 向 量 元 素 。 


令 测 值 是 否 是 一 个 向 量 的 过 程 是 vector? ° 


2.2.3 Dotted pairs( 点 对 ) 和 lists( 列 表 ) 


点 对 是 将 两 个 任意 数值 组 合成 有 序数 偶 的 复合 类 型 。 点 对 的 第 一 个 数值 被 称 作 car ， 
第 二 值 被 称 作 cdr， 而 将 两 个 值 组 合成 点 值 对 的 过 程 是 cons。 


(cons 1 #t) 
=> (1 pee) 


点 对 不 能 自 运 站， 因此 直接 以 值 的 方式 来 定义 它们 〈 即 不 通过 调用 cons Re 
建 ) ， 必 须 显 式 的 使 用 引号 : 


nial , #88) = (Gl. ate) 

(1 . #t) -->ERROR!!! 
访问 点 值 对 值 的 过 程 分 别 是 car ( car 访问 点 值 对 的 第 一 个 元 素 ) 和 
cdr ( cdr 访问 点 值 对 的 非 一 个 元 素 ) : 

(define x (cons 1 #t)) 


(car x) 
= 1 


(cdr x) 
=> #t 


NN 
pA 


点 对 的 元 素 可 以 通过 修改 器 过 程 set-car! 和 set-cdr! 来 进行 


(set-car! x 2) 


(set-cdr! x #f) 


点 对 也 可 以 包含 其 它 的 点 对 。 


(define y (cons (cons 1 2) 3)) 


(car (car y)) 
=> T 


(cdr (car y)) 
=> 2 


Scheme 提供 了 可 以 简化 car 和 cdr 组 合 起 来 连续 访问 操作 的 简化 过 程 


像 caar 表示 car 运算 结果 的 car 运算 结果 ， cdar 表示 ”car 运算 结果 
的 cdr 22 算 结 果 ”， 等 等 E 


(caar y) 
=> 1 


(cdar y) 
=> 2 


像 c...r 这 样 风格 的 SRG RAG ORES PIR te gE > WEE > ze 
cdaddr 都 是 存在 的 。 而 cdadadr 这 样 的 就 不 对 了 。 


当 第 二 个 元 素 是 一 个 具 套 的 点 对 时 ，Scheme 使 用 一 种 特殊 的 标记 来 表示 表达 式 的 
结果 : 


(cons 1 (cons 2 (cons 3 (cons 4 5)))) 
=> (1 2m’ A 5) 


BP > (1234.5) Æ&3f (1. (2. (3. (4. 5)))) 的 一 种 简化 。 这 个 表达 
式 的 最 后 一 个 cdr 运算 结果 是 5。 


如 果 上 殴 套 点 值 对 最 后 一 个 cdr 运算 结果 是 一 个 空 列表 对 象 ，Scheme 提 供 了 一 种 
更 进一步 的 用 表达 式 '() 来 表示 的 简化 方式 。 空 列表 没有 被 考虑 做 为 可 以 自 运算 
的 值 ， 所 以 为 程序 提供 一 个 空 列 表 值 时 必须 用 单 引 号 方式 来 创建 : 


'() => () 
诸如 像 (1 (2 . (3 . (4. ())))) 这 样 形式 的 点 值 对 被 简化 
成 (1 2 3 4) 。 像 这 样 第 二 元 素 都 是 一 个 点 值 对 特殊 形式 的 谋 套 点 值 对 就 称 作 列 
表 list。 这 是 一 个 四 个 元 素 长 度 的 列表 。 可 以 像 这 样 来 创建 : 


(cons 1 (cons 2 (cons 3 (cons 4 '())))) 


但 Scheme 提供 了 一 个 list 过 程 可 以 更 方便 的 创建 列表 。List 可 以 将 任意 个 数 的 参数 
变 成 列表 返回 : 


(list 1 2 3 4) 
J 2 g A) 


实际 上 ， 如 果 我 们 知道 列表 所 包含 的 所 有 元 素 ， 我 们 还 可 以 用 quote 来 定义 一 个 
列表 : 


'(1 2 3 4) 
= (123i) 


列表 的 元 素 可 以 通过 指定 索引 号 来 访问 。 


(define y (list 1 2 3 4)) 


(list-ref y 0) => 1 
(list-ref y 3) => 4 


(istea y > 3 
(list-tail y 3) => (4) 
list-tail 返回 了 给 定 索引 号 后 的 所 有 元 素 。 


pair? ， list? 和 null? 判断 过 程 可 以 分 别 用 来 检查 它们 的 参数 是 不 是 一 个 
点 对 ， 列 表 或 空 列表 。 


(pair? '(1 2). = Ft 
(pair? '(1 2)) = hy Gee 
(pair? '()) => #f 
(istea O => #t 
(null? '()) => #t 


(list? '(1 2)) => #t 
(list? '(1 . 2)) => #f 
(null? '(1 2)) => #f 
(null? '(1 . 2)) => #f 


2.2.1 数据 类 型 转换 


Scheme 提 供 了 许多 可 以 进行 数据 类 型 转换 的 过 程 。 我 们 已 经 知道 可 以 通 

过 char-downcase 和 char-upcase 过 程 来 进 字符 大 小 写 的 转换 。 字 符 还 可 以 
通过 使 用 char->integer 来 转换 成 整 型 ， 同 样 的 整 型 也 可 以 通 

过 integer->char 被 转换 成 字符 。( 字 符 转 换 成 整 型 得 到 的 结果 通常 是 这 个 字符 的 
ascii 码 值 。) 


(char->integer #\d) => 100 
(integer->char 50) => #\2 


字符 串 可 以 被 转换 成 等 价 的 字符 列表 。 


(string->list "hello") => (#\h #\e #\1l #\l #\0) 


其 它 的 转换 过 程 也 都 是 一 样 的 风格 list->string ， vector->list 和 
list->vector ° 


数字 可 以 转换 成 字符 串 : (number->string 16) => "16" 


字符 串 也 可 以 转换 成 数字 。 如 果 字 符 串 不 能 转换 成 数字 ， 则 会 返回 #f 。 
(string->number "16") 
=> 16 


(string->number "Am I a not number?") 
=> #f 


string->number 第 二 个 参数 是 可 选 参数 ， 指 示 以 几 进 制 来 转换 。 


(string->number "16" 8) => 14 


八进制 的 数字 16 FT 14 © 
Symbols 也 可 以 转换 为 字符 串 ， 反 之 亦 然 : 


(symbol->string 'symbol) 
=> "symbol" 


(string->symbol "string") 
=> string 


23 其 它 数据 类 型 


Scheme 还 包含 了 一 些 其 它 数 据 类 型 。 一 个 是 procedure (过 程 )。 我 们 已 经 见 过 了 许 
多 过 程 了 ， 例 如 ， display > + > cons 等 。 实 际 上 ， 它 们 是 一 些 承载 了 过 程 
值 的 变量 ， 过 程 本 身 内 部 的 数值 和 字符 并 不 可 见 


cons 
=> <procedure> 


迄今 为 止 我 们 所 见 过 的 这 些 过 程 都 属于 原始 过 程 (系统 过 程 ) ， 由 一 些 全 局 变量 来 
承载 它们 。 用 户 还 可 以 添加 自 定义 的 过 程 。 


还 有 另外 种 数据 类 型 是 port 端 口 。 一 个 端口 是 为 输入 输出 提供 执行 的 通道 。 端 口 通 
常会 和 文件 和 控制 台 操作 相关 联 。 


在 我 们 的 "Hello’ World!" 程序 中 ， 我 们 使 用 display 过 程 向 控制 台 输 出 了 一 
个 字符 串 。 display 可 以 接受 两 个 参数 ， 第 一 个 参数 值 是 将 输出 的 值 ， 另 一 个 值 
则 表示 了 即将 承载 显示 结果 的 输出 port( 端 口 )。 


在 我 们 的 程序 中 ， display 的 第 二 参数 是 隐 式 参数 。 这 时 候 display 会 采用 标 
准 输 出 端口 作为 它 的 默认 输出 端口 。 我 们 可 以 通过 调用 current-output-port 过 
程 来 取得 当前 的 标准 输出 端口 。 我 们 可 以 更 清楚 的 写 出 : 


(display "Hello, World!" (current-output-port) ) 


2.4 S-expressions (S 表 达 式 ) 


所 有 这 些 已 经 被 讨论 过 的 数据 类 型 可 以 被 统一 成 一 种 通用 的 叫 作 s-expression( 符 号 
表达 式 或 s- 表 达 式 ) 的 数据 类 型 (S 代 表 符 号 )。 像 42 > He? (1.2) ， 

#(a bc) ， "Hello" > (quote xyz) ， (string->number "16") ， 和 
(begin (display "Hello, World!") (newline)) 都 是 S- 表 达 式 。 


第 三 章 Forms 代 码 结构 


读者 们 会 发 现 迄 今 为 止 我 们 提供 的 Scheme 示例 程序 也 都 是 s- 表 达 式 。 这 对 所 有 的 
Scheme 程序 来 说 都 适用 : 程序 是 数据 。 


因此 ， 字 符 数 据 H\c 也 是 一 个 程序 ， 或 一 个 代码 结构 。 我 们 将 使 用 更 通用 的 说 法 
代码 结构 而 不 是 程序 ， 这 样 我 们 也 可 以 处 理 程序 片段 。 


Scheme 计算 代码 结构 #\c 得 到 结果 #\c ， 因 为 #\c 可 以 自 运 算 。 但 不 是 所 有 
的 S- 表 达 式 都 可 以 自 运 算 。 比 如 symbol 表达 式 xyz 运算 得 到 的 结果 是 xyz 这 个 
变量 所 承载 的 值 list RIAA (string->number "16") 运算 的 结果 是 数字 16 © 
( 注 : 之 前 学 过 的 list 类 型 的 数据 都 是 类 似 (1 2 3 4 5) 这 样 ， 所 以 

fr (string->number "16") 为 列表 s- 表 达 式 ) 


也 不 是 所 有 的 S- 表 达 式 都 是 有 效 的 程序 。 如 果 你 直接 输入 点 值 对 (1 . 2) ， 你 将 


会 得 到 一 个 错误 。 


Scheme 运 行 一 个 列表 形式 的 代码 结构 时 ， 首 先 要 检测 列表 第 一 个 元 素 ， 或 列 
头 。 如 果 这 个 列表 头 是 一 个 过 程 ， 则 代码 结构 的 其 余部 分 则 被 当成 将 传递 给 这 个 过 
程 的 参数 集 ， 而 这 个 过 程 将 接收 这 些 参数 并 运算 。 


如 果 这 个 代码 结构 的 列表 头 是 一 个 特殊 的 代码 结构 ， 则 将 会 采用 一 种 特殊 的 方式 来 
运行 。 我 们 已 经 碰 到 过 的 特殊 的 代码 结构 有 begin > define 和 set! 。 


begin 可 以 让 它 的 子 结构 可 以 有 序 的 运算 ， 而 最 后 一 个 子 结构 的 结果 将 成 为 整个 
代码 结构 的 运行 结果 。 define 会 声明 并 会 初始 化 一 个 变量 。 set! 可 以 给 已 经 
存在 的 变量 重新 赋值 。 


3.1 Procedures( 过 程 ) 

我 们 已 经 见 过 了 许多 系统 过 程 ， 比 如 ， cons ， string->list 等 。 用 户 可 以 使 
用 代码 结构 lambda 来 创建 自 定义 的 过 程 。 例 如 ， 下 面 定 义 了 一 个 过 程 可 以 在 它 的 
参数 上 加 上 2 : 


(lambda (x) (+ X 2)) 


第 一 个 子 结构 ， (x) ， 是 参数 列表 。 其 余 的 子 结构 则 构成 了 这 个 过 程 执行 体 。 这 
个 过 程 可 以 像 系统 过 程 一 样 ， 通 过 传递 一 个 参数 完成 调用 : 


((lambda (x) (+ x 2)) 5) 
=> 7 


如 果 我 们 希望 能 够 多 次 调用 这 个 相同 的 过 程 ， 我 们 可 以 每 次 使 用 lambda 重新 创建 
一 个 复制 品 ， 但 我 们 有 更 好 的 方式 。 我 们 可 以 使 用 一 个 变量 来 承载 这 个 过 程 : 


(define add2 
(lambda (x) (+ x 2))) 


只 要 需要 ， 我 们 就 可 以 反复 使 用 add2 为 参数 加 上 2 : 


(add2 4) => 6 
(add2 9) => 11 


译 者 注 : 定 义 过 程 还 可 以 有 另 一 种 简单 的 方式 ， 直 接 用 define 而 不 使 用 lambda 来 创 


(define (add2 x) 
(+ x 2)) 


3.1.1 过 程 的 参数 


lambda 过 程 的 参数 由 它 的 第 一 个 子 结构 ( 紧 跟着 lambda 标记 的 那个 结构 ) 来 
定义 。 add2 是 一 个 单 参数 或 一 元 过 程 ， 所 以 它 的 参数 列表 是 只 有 一 个 元 素 的 列 
表 (x) E UR oa r A 
有 X 都 是 指 代 这 过 程 的 参数 。 对 过 个 过 程 体 来 说 Xx 是 一 个 局 部 变量 g 


我 们 可 以 为 两 个 参数 的 过 程 提 供 两 个 元 素 的 列表 做 参数 ， 通 常 都 是 为 hn 个 参数 的 过 
程 提供 n 个 元 素 的 列表 。 下 面 是 一 个 可 以 计 草 矩形 面积 的 双 参 数 过 程 。 它 的 两 个 参 
数 分别 是 矩形 的 长 和 宽 。 


(define area 
(lambda (length breadth) 
(* length breadth))) 


我 们 看 到 area 将 它 的 参数 进行 相 乘 ， 系 统 过 程 * 也 可 以 实现 相 乘 。 我 们 可 以 简 
单 的 这 样 做 : 


(define area *) 


3.1.2 可 变数 量 的 参数 (不 定 长 参数 ) 


有 一 些 过程 可 以 在 不 同 的 时 候 传 给 它 不 同 个 数 的 参数 来 完成 调用 。 为 了 实现 这 样 的 
过 程 ， lambda 表达 式 列表 形式 的 参数 要 被 替换 成 单个 的 符号 。 这 个 符号 会 像 一 个 
变量 一 样 来 承载 过 程 调用 时 接收 到 的 参数 列表 。 


通常 ， lambda 的 参数 列表 可 以 是 一 个 列表 构 结 (x ..) ， 一 个 符号 ， 或 
A (xX. Z) 这 样 的 一 个 点 对 结构 。 


当 参 数 是 一 个 点 对 结构 时 ， 在 点 之 前 的 所 有 变量 将 一 一 对 应 过 程 调 用 时 的 前 几 个 参 
数 ， 点 之 后 的 那个 变量 会 将 剩余 的 参数 值 作为 一 个 列表 来 承载 。 


3.2 apply 过 程 


apply 过 程 允许 我 们 直接 传递 一 个 装 有 参数 的 list 给 一 个 过 程 来 完成 对 这 个 过 程 的 
批量 操作 。 


(define x '(1 2 3)) 


(apply + x) 
=> 6 


通常 ， apply 需要 传递 一 个 过 程 给 它 ， 后 面 紧 接 着 是 不 定 长 参数 ， 但 最 后 一 个 参 
数值 一 定 要 是 list。 它 会 根据 最 后 一 个 参数 和 中 间 其 它 的 参数 来 构建 参数 列表 。 然 后 
返回 根据 这 个 参数 列表 来 调用 过 程 得 到 的 结果 。 例 如 : 


(apply + 1 2 3 x) 
=> 12 


3.3 顺序 执行 


我 们 使 用 begin 这 个 特殊 的 结构 来 对 一 组 需要 有 序 执行 的 子 结 构 来 进行 打包 。 许 
多 Scheme 的 代码 结构 都 隐 含 了 begin 。 例 如 ， 我 们 定义 一 个 三 个 参数 的 过 程 来 
输出 它们 ， 并 用 空格 间 格 。 一 种 正确 的 定义 是 : 


(define display3 
(lambda (arg1 arg2 arg3) 
(begin 
(display arg1) 
(display " ") 
(display arg2) 
(display u) 
(display arg3) 
(newline)))) 


Æ Scheme ¥ > lambda t9 74 4) (KAR IAM begin 代码 结构 。 
此 ， display3 语句 体 中 的 begin 不 是 必须 的 ， 不 写 时 也 不 会 有 什么 影响 。 


display3 更 简化 的 写法 是 : 


Scheme 语言 简明 教程 


(define display3 
(lambda (arg1 arg2 arg3) 
(display arg1) 


(display man) 
(display arg2) 
(display " ") 


(display arg3) 
(newline))) 
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第 四 草 ， 条 件 语句 


和 其 它 的 编程 语句 一 样 ，Scheme 也 包含 条 件 语句 。 
最 基本 的 结构 就 是 if : 


(if 测试 条 件 
then- 分 支 
else-7 X) 


如 果 测 试 条 件 运算 的 结 RAR > SER ETS 它 值 )， then 分 支 将 会 被 运行 
( 即 满足 条 件 时 的 运行 分 支 )。 否则 ， else 分 支 会 被 运行 。 else 分 支 是 可 选 的 。 


(define p 80) 


(if (> p 70) 
‘safe 
'unsafe) 

=> safe 


(if (< p 90) 
'low-pressure) ;no ``else'' branch 
=> low-pressure 


为 了 方便 ，Scheme 还 提供 了 一 些 其 它 的 条 件 结构 语句 。 它 们 可 以 被 定义 成 宏 来 扩 
充 if 表 达 式 。 


4.1 when 和 unless 


当 我 们 只 需要 一 个 基本 条 件 语 ay XAT ("then” 分 支 或 "else” 分 支 ) ， 使 用 when 和 
unless 会 更 方便 。( 这 里 的 示例 已 经 更 换 ， 原 示例 ) 


(define a 10) 

(define b 20) 

(when (< a b) 
(display “a 是 ”) 
(display a) 
(display “bě”) 
(display b) 
(display “aXTb” ) ) 


ow 


先 判断 a 是 否 小 于 b， 这 个 条 件 成 立时 会 输出 5 条 信息 。 


使 用 并 实现 相同 的 程序 会 是 这 样 : 


(define a 10) 
(define b 20) 
(if (< a b) 
(begin 
(display “aš” ) 
(display a) 
(display “b#”) 
(display b) 
(display “aXTb” ) )) 


注意 when 的 分 支 是 一 个 隐 式 的 begin 语句 结构 ， 而 如 果 if 的 分 支 有 多 个 代码 
结构 时 ， 需 要 一 个 显 式 的 begin 代码 结构 。 


同样 的 功能 还 可 以 像 下 面 这 样 用 unless 来 写 ( unless 和 when 的 意思 正好 相 
By): 


(define a 10) 

(define b 20) 

(unless (>= a b) 
(display “a 是 ”) 
(display a) 
(display “bě”) 
(display 
(display “aXTb” ) ) 


oO 
\ 一 


并 不 是 所 有 的 Scheme 环境 都 提供 when 和 unless 。 如 果 你 的 Scheme 中 没有 ， 
你 可 以 用 宏 来 自 定义 出 when 和 unless ( 宏 ， 见 第 8 章 )。 


4.2 cond 


cond 结构 在 表示 多 重 if 表达 式 时 很 方便 ， 多 重 if 结构 除了 最 后 一 
else 分 支 以 外 的 其 余 分 支 都 会 包含 一 个 新 的 if 条 件 。 因 此 ， 


(if (char<? c #\c) -1 
(if (char=? c #\c) 0 
1)) 


这 样 的 结构 都 可 以 使 用 cond 来 这 样 写 : 


(cond ((char<? c #\c) -1) 
((char=? c #\c) 0) 
(else 1)) 


cond 就 是 这 样 的 一 种 多 分 支 条 件 结构 。 每 个 从 句 都 包含 一 个 判断 条 件 和 一 个 相关 
的 操作 。 第 一 个 判断 成 立 的 从 名 将 会 引发 它 相关 的 操作 执行 。 如 果 任 何 一 个 分 支 的 
条 件 判 断 都 不 成 立 则 最 后 一 个 else 分 支 将 会 执行 ( else 分 支 语句 是 可 选 的 ) 。 


cond 的 分 支 操 作 都 是 begin 结构 。 


4.3 case 


当 cond 结构 的 每 个 测试 条 件 是 一 个 测试 条 件 的 分 支 条 件 时 ， 可 以 缩减 为 一 
个 case 表达 式 。 


(define c #\c) 

(case c 
((#\a) 1) 
((#\b) 2) 
((#\c) 3) 
(else 4)) 

三 学 3 


分 支 头 值 是 #Nc 的 分 支 将 被 执行 


4.4and 和 or 

Scheme h 1 pole ee? and 和 逻辑 或 or 运算 的 结构 。( 我 们 已 经 
见 过 了 布尔 类 型 的 求 反 运 算 not 过 程 。) 

SAA PAW aR > and WR  KHE> and 的 运行 结果 是 最 
后 一 个 子 结构 的 值 。 如 果 任 何 一 个 子 结构 的 值 都 是 假 ， 则 返回 #f 。 


(and 12) => 2 
(and #f 1) => #f 


而 or SRE HRA MBA BY FSH DER o oO RAT A AY TS Hy HY AB A 
假 ， or 则 返回 #f ° 


(or 12) => 1 
(or #f 1) => 1 


and 和 or 都 是 从 左 向 右 运 算 。 当 某 个 子 结构 可 以 决定 最 终结 果 
时 ， and 和 or 会 忽略 剩余 的 子 结构 ， 即 它们 是 “短路 "的 。 


(and 1 #f expression-guaranteed-to-cause-error) 
=> #T 


(or 1 #f expression-guaranteed-to-cause-error) 
=> 1 


第 五 章 ， 词 法 变量 


Scheme 的 变量 有 一 定 的 词法 作用 域 ， 即 它们 在 程序 代码 中 只 对 特定 范围 的 代码 结 
构 可 见 。 先 今 为 止 我 们 所 见 过 的 全 局 变量 也 没有 例外 的 : 它们 的 作用 域 是 整个 程 
序 ， 这 也 是 一 种 特定 的 作用 范围 。 

我 们 也 碰见 过 一 些 示例 包含 局 部 变量 。 它 们 都 是 lambda 过 程 的 参数 ， 当 过 程 被 调用 
时 这 些 变 量 会 被 赋值 ， 而 它们 的 作用 域 仅 限于 在 过 程 的 内 部 。 例 如 : 


(define x 9) 
(define add2 (lambda (x) (+ x 2))) 


x => 9 


(add2 3) => 5 
(add2 x) => 11 


x => 9 


这 里 有 一 个 全 局 变量 x ， 还 有 一 个 局 部 变量 x ， 就 是 在 过 程 add2 中 那个 字 
Hy 。 全 局 变量 x 的 值 一 直 是 9。 第 一 次 调用 add2 过 程 时 ， 局 部 的 x 会 被 赋 
值 为 93， 而 第 二 次 调用 add2 时 ， 局 部 变量 x 的 会 被 赋值 为 全 局 变量 x 的 值 ， 
BP 9 œ 

当 过 程 的 调用 结束 时 ， 全 部 变量 x 仍然 是 9 。 


而 set! 代码 结构 可 修改 变量 的 赋值 。 


(set! x 20) 


上 面 代 码 将 全 局 变量 x 的 值 9 修改 为 20， 因 为 对 于 set! 全 局 变量 是 可 见 的 。 如 
果 set! 是 在 add2 过 程 体内 被 调用 ， 那 修改 的 就 是 局 部 变量 x 


(define add2 
(lambda (x) 
(set! x (+ x 2)) 
X) ) 


这 里 set! 在 局 部 变量 x 上 加 上 2， 并 且 会 返回 局 部 变量 X 的 新 值 。( 从 结果 来 看 ， 
我 们 无 法 区 分 这 个 过 程 和 先前 的 add2 过 程 )。 


我 们 可 以 像 先 前 一 样 使 用 全 局 的 x 做 参数 值 来 调用 add2 


(add2 x) => 22 


( 记 住 全 局 变量 x 的 值 现在 是 20， 而 不 是 91) 


add2 过 程 内 的 set! 调用 仅 会 影响 局 部 变量 xX。 尽 管 局 部 变量 Xx 被 贱 了 全 局 变量 X 
的 值 ， 但 后 者 不 会 因为 set! 为 局 部 变量 x 赋值 而 受 影响 。 


x => 20 


注意 我 们 做 这 些 讨论 是 因为 我 们 为 局 部 变量 和 全 局 变量 使 用 了 同样 的 标识 x 。 在 
某 些 代码 中 ， 这 个 叫 x 的 标识 符 指 的 是 语法 闭 包 中 的 局 部 x 变量 ， 这 会 暂时 隐藏 
闭 包 外 或 全 局 变量 x 的 值 。 例 如 ， 


(define counter 0) 


(define bump-counter 
(lambda () 
(set! counter (+ counter 1)) 
counter ) ) 


bump-counter 是 一 个 没有 参数 的 过 程 (没有 参数 的 过 程 也 称 作 thunk ). CAA 
引入 局 部 变量 和 参数 ， 这 样 就 不 会 隐藏 任何 值 。 在 每 次 调用 时 ， 它 会 修改 全 局 变 
量 counter 的 值 ， 让 它 增加 1， 然 后 返回 它 当 前 的 值 。 下 面 是 一 

些 bump-counter 的 成 功 调用 示例 : 


(bump-counter) => 1 
(bump-counter) => 2 
(bump-counter) => 3 


5.1 let 和 let* 


并 不 是 一 定 要 显 式 的 创建 过 程 才 可 以 创建 局 部 变量 。 有 个 特殊 的 代码 结构 let 可 以 创 
建 一 列 局 部 变量 以 便 在 其 结构 体 中 使 用 : 


(let ((x 1) 
(y 2) 
(z 3)) 

(list x y z)) 
=> (12 3) 


和 lambda 一 样 ， 在 let 结构 体 中 ， 局 部 变量 x (赋值 为 1) 会 暂时 隐藏 全 局 变 
量 x (赋值 为 20) 。 


局 部 变量 ` Z 分 别 被 赋值 为 1、2、3， 这 个 初始 化 的 过 程 并 不 作 
i 一 部 分 。 因 此 ， 在 初始 化 时 对 x 的 引用 都 指向 了 全 局 变 
X 


(let ((x 1) 
(y x)) 


(+ x y)) 
=> 21 


上 面 代 码 中 ， 因 为 局 部 变量 x 被 赋值 为 1， 而 y 被 典 上 了 值 为 20 的 全 局 变 


了 


里 X °? 


有 时 候 ， 用 let 依次 的 创建 局 变量 非常 的 方便 ， 如 果 在 初始 化 区 域 中 可 以 用 先 创 
建 的 变量 来 为 后 创建 的 变量 赋值 也 会 非常 方便 。 let* 结构 就 可 以 这 样 做 : 


(let* ((x 1) 
(y x)) 


(+ x y)) 
=> 2 


在 初始 化 y 变 量 时 的 X， 指 的 是 前 面 刚 创建 好 的 变量 X。 这 个 例子 完全 等 价 于 下 面 这 
个 let RANE RAT? KLM let KBs o 


(let ((x 1)) 
(let ((y x)) 


(+ x y))) 
=> 2 


我 们 也 可 以 把 一 个 过 程 做 为 值 赋 给 变量 : 


(let ((cons (lambda (x y) (+ x y)))) 
(cons 1 2)) 
=> 3 


在 这 个 let WAP FE cons 将 它 的 参数 进行 相 加 。 而 在 let 结构 的 外 
面 ， cons 还 是 用 来 创建 点 对 。 


5.2 fluid-let 


一 个 词法 变量 如 果 没 有 被 隐藏 ， 在 它 的 作用 域内 一 直 都 为 可 见 状态 。 有 时 候 ， 我 们 
有 必要 将 一 个 词法 变量 临时 的 设置 为 一 个 固定 的 值 。 为 此 我 们 可 使 

用 fluid-let 结构 ( fluid-let 是 一 个 非 标准 的 特殊 结构 。 可 参见 8.3， 在 
Scheme 中 定义 fluid-let) 。 


(fluid-let ((counter 99)) 
(display (bump-counter)) (newline) 
(display (bump-counter)) (newline) 
(display (bump-counter)) (newline) ) 


这 和 let 看 起 来 非常 相像 ， 但 并 不 是 暂时 的 隐藏 了 全 局 变量 counter 的 值 ， 而 是 
在 fluid-let 执行 体 中 临时 的 将 全 局 变量 counter 的 值 设置 为 了 99 直 到 执行 体 
结束 。 因 此 执行 体 中 的 三 名 display 产生 了 结果 


100 
101 
102 


当 fluid-let 表达 式 计算 结束 后 ， 全 局 变量 counter 会 恢复 成 之 前 的 的 值 。 


counter => 3 


注意 fluid-let 和 let 的 效果 完全 不 同 。 fluid-let 不 会 和 let 一 样 产生 一 
个 新 的 变量 。 它 会 修改 已 经 存 的 变量 的 值 绑 定 ， 当 fluid-let 结束 时 这 个 修改 也 


会 结束 。 


为 了 清楚 的 说 明 这 一 些 ， 可 以 思考 这 个 根据 前 一 个 示例 用 let 和 替 
换 fluid-let 后 的 程序 。 这 次 的 输出 是 


即 ， 初 始 值 为 3 的 全 局 变量 counter ， 被 每 一 次 bump-counter 的 调用 更 新 。 而 
新 创建 的 初始 值 为 99 的 词法 变量 counter 并 没有 影响 到 bump-counter 的 执行 ， 
因为 尽管 bump-counter 是 在 局 部 变量 counter 的 作用 域内 被 调用 的 ， 

但 bump-counter 的 结构 体 并 不 在 这 个 作用 域内 。 所 以 bump-counter 中 

的 counter 仍然 指 的 是 全 局 变量 counter ， 最 后 的 值 为 6。 


counter => 6 


PrE o?’ ğa 
一 个 过 程 体 中 可 以 包含 对 其 它 过 程 的 调用 ， 特 别 的 是 也 可 以 调用 自己 。 


(define factorial 
(lambda (n) 
(if (= n 0) 1 
(* n (factorial (- n 1)))))) 


这 个 递归 过 程 用 来 计算 一 个 数 的 阶乘 。 如 果 这 个 数 是 0， 则 结果 为 1。 对 于 任何 其 它 
的 值 n， 这 个 过 程 会 调用 其 自身 来 完成 n-1 阶 乘 的 计算 ， 然 后 将 这 个 子 结果 乘 上 n 并 
返回 最 终 产生 的 结果 。 


互 递 归 过 程 也 是 可 以 的 。 下 面 判断 奇偶 数 的 过 程 相互 进行 了 调用 。 


(define is-even? 
(lambda (n) 
(if (= n 0) #t 
(is-odd? (- n 1))))) 


(define is-odd? 
(lambda (n) 
(if (= n 0) #f 
(is-even? (- n 1))))) 


这 里 提供 的 两 个 过 程 的 定义 仅 作 为 简单 的 互 递归 示例 。Scheme 已 经 提供 了 简单 的 
判断 过 程 even? 和 odd? ° 


6.1 letrec 
如 果 希 望 将 上 面 的 过 程 定 义 为 局 部 的 ， 我 们 会 尝试 使 用 let 结 构 : 


(let ((local-even? (lambda (n) 
(if (= n 0) #t 
(local-odd? (- n 1))))) 
(local-odd? (lambda (n) 
(if (= n 0) #f 
(local-even? (- n 1)))))) 
(list (local-even? 23) (local-odd? 23))) 


但 这 并 不 能 成 功 ， 因 为 在 初始 化 值 过 程 中 出 现 的 local-even? 和 
local-odd? 指向 的 并 不 是 这 两 个 过 程 本 身 。 


把 let 换 成 let* 同样 也 不 能 奏效 ， 因 为 这 时 虽然 local-odd? 中 出 现 
的 local-even? 指向 的 是 前 面 刚 创建 好 的 局 部 的 过 程 ， 但 local-even? 中 
的 local-odd? 还 是 指向 了 别处 。 


为 解决 这 个 问题 ，Scheme 提 供 了 letrec 结构 。 


(letrec ((local-even? (lambda (n) 
(if (= n 0) #t 
(local-odd? (- n 1))))) 
(local-odd? (lambda (n) 
(if (= n 0) #f 
(local-even? (- n 1)))))) 
(list (local-even? 23) (local-odd? 23))) 


用 letrec 创建 的 词法 变量 不 仅 可 以 在 letrec 执行 体 中 可 见 而 且 在 初始 化 中 也 
可 见 。 letrec 是 专门 为 局 部 的 北 归 和 互 递归 过 程 而 设置 的 。( 这 里 也 可 以 使 
用 define 来 创建 两 个 子 结构 的 方式 来 实现 局 部 递归 ) 


6.2 命名 let 


使 用 letrec 定义 递归 过 程 可 以 实现 循环 。 如 果 我 们 想 显示 10 到 1 的 降 数 列 ， 可 以 
这 样 写 : 


(letrec ((countdown (lambda (1) 
(20 (= 0) ILftoff 
(begin 
(display i) 
(newline) 


(countdown (- i 1))))))) 
(countdown 10)) 


这 会 在 控制 台 上 输出 10 到 1， 并 会 返回 结果 liftoff ° 


Scheme 允许 使 用 一 种 叫 * 命 名 let 的 let 变 体 来 更 简洁 的 写 出 这 样 的 循环 : 


(let countdown ((i 10)) 
Gf (= ïi 0) "liftoff 
(begin 
(display i) 
(newline) 
(countdown (- i 1))))) 


注意 在 let 的 后 面 立即 声明 了 一 个 变量 用 来 表示 这 个 循环 。 这 个 程序 和 先前 
用 letrec 写 的 程序 是 等 价 的 。 你 可 以 将 "命名 let* 看 成 一 个 对 letrec 结构 进行 扩 
展 的 宏 。 


AN 


上 面 定义 的 countdown S 寸 程 。Scheme 只 有 通过 递归 才 
能 定义 循环 ， 不 存在 特殊 的 循环 或 迭代 结构 。 


尽管 如 此 ， 上 述 定义 的 循环 是 一 个 “ 丨 "循环 ， 与 其 他 语言 实现 它们 的 循环 的 方法 完 
全 相同 。 也 就 是 说 ,Scheme 十 分 注意 确保 上 面 使 用 过 的 递归 类 型 不 会 产生 过 程 调 用 / 
返回 开销 。 

Scheme 通过 一 种 消除 尾部 调用 (tail-call elimination) 的 过 程 完成 这 个 功能 。 如 果 
你 注意 观察 countdown 的 步骤 ， 你 会 注意 到 当 递 归 调 用 出 现在 countdown 主体 
内 时 ， 就 变 成 了 “尾部 调用 "”， 或 者 说 是 最 后 完成 的 事情 countdown 的 每 次 调 
用 要 么 不 调用 EAH? BA peel 自身 时 把 这 个 动作 留 在 和 最后。 对 于 一 个 
Schemeté & 的 实现 来 说 (解释 器 ) ， 这 会 使 递归 不 同 于 和 迭代 。 因 此， 尽管 用 递归 
去 写 循 环 吧 ， 这 是 安全 的 。 


是 又 一 个 有 用 的 尾 递归 程序 的 例子 : 





(define list-position 
(lambda (o 1) 
(let loop ((i 0) (1 1)) 
(if (null? 1) #f 
(if (eqv? (car 1) 0) i 
(loop (+ i 1) (cdr 1))))))) 


list-position RILT o 对 象 在 列表 1 中 第 一 次 出 现 的 索引 。 如 果 在 列表 中 没 
有 发 现 对 象 ， 过 程 将 会 返回 #f ° 


这 又 是 一 个 尾部 递归 过 程 ， 它 将 自身 的 参数 列表 就 地 反 转 ， 也 就 是 使 现 有 的 列表 内 
容 产 生变 异 ， 而 没有 分 配 一 个 新 的 列表 : 


(define reverse! 
(lambda (s) 
(let loop ((s s) (r '())) 
(ar n> S) ir 
(let ((d (cdr s))) 
(set-cdr! s r) 
(loop d s)))))) 


reverse! 是 一 个 十 分 有 用 的 过 程 ， 它 在 很 多 Scheme 方言 中 都 能 使 用 ， 例 如 


MzScheme 和 Guile ) 
更 多 地 递归 例子 (包括 迭代 ) 参见 附录 C。 


6.4 用 自 定义 过 程 映 射 整个 列表 


有 一 种 特殊 类 型 的 迭代 ， 对 列表 中 每 个 元 素 ， 它 都 会 重复 相同 的 动作 。Scheme 为 
这 种 情况 提供 了 两 种 程序 : map 和 for-each ° 

map 程序 为 给 定 列表 中 的 每 个 元 素 提 供 了 一 种 既定 程序 ， 并 返回 一 个 结果 的 列 
表 。 例 如 : 


(map add2 '(1 2 3)) 
=> (3 4 5) 


for-each 程序 也 为 列表 中 的 每 个 元 素 提 供 了 一 个 程序 ， 但 返回 值 为 室 。 这 个 程序 
纯粹 是 产生 的 副作用 。 例 如 : 


(for-each display 
(list "one " "two " "buckle my shoe")) 


这 个 程序 在 控制 台 上 有 显示 字符 串 〈 在 它们 出 现 的 顺序 上 ) 的 副作用 。 

这 个 由 map 和 for-each 用 在 列表 上 的 程序 并 不 一 定 是 单 参数 程序 。 举 例 来 说 ， 
假设 一 个 n 参 数 的 程序 ， map 会 接受 n 个 列表 ， 每 个 列表 都 是 由 一 个 参数 所 组 成 的 
集合 ， 而 map 会 从 每 个 列表 中 取 相 应 元 素 提 供给 程序 。 例 如 : 


(map cons '(1 2 3) '(10 20 30)) 
=> ((1 . 10) (2 . 20) (3 . 30)) 


(map + '(1 2 3) '(10 20 30)) 
=> (11 22 33) 


第 七 章 输入 输出 


Scheme 的 输入 /输出 程序 可 以 使 你 从 输入 端口 读 取 或 者 将 写 入 到 输出 端口 。 端 口 可 
以 关联 到 控制 台 ， 文 件 和 字符 串 。 


7.1 读 取 


Scheme 的 读 取 程 序 带 有 一 个 可 选 的 输入 端口 参数 。 如 果 端 口 没 有 特别 指定 ， 则 假 
设 为 当前 端口 (一 般 是 控制 台 ) © 


读 取 的 内 容 可 以 是 一 个 字符 ， 一 行 数据 或 是 S 表 达 式 。 当 每 次 执行 读 取 时 ， 端 口 的 
状态 就 会 改变 ， 因 此 下 一 次 就 会 读 取 当 前 已 读 取 内 容 后 面 的 内 容 。 如 果 没 有 更 多 的 
内 容 可 读 ， 读 取 程 序 将 返回 一 个 特殊 的 数据 一 一 文件 结束 符 或 EOF 对 象 。 这 个 对 象 
只 能 用 eof-object? 函数 来 判断 。 





read-char 程序 会 从 端口 读 取 下 一 个 字符 。 read-line 程序 会 读 取 下 一 行 数 
据 ， 并 返回 一 个 字符 事 (不 包括 最 后 的 换行 符 ) > read 程序 则 会 读 取 下 一 个 S 表 
达 式 。 


7.24 


Scheme 的 写 入 程序 接受 一 个 要 被 写 入 的 对 象 和 一 个 可 选 的 输出 端口 参数 。 如 果 未 
指定 端口 ， 则 假设 为 当前 端口 (一般 为 控制 台 ) o 


写 入 的 对 象 可 以 是 字符 或 是 S 表 达 式 。 


write-char 程序 可 以 向 输出 端口 写 入 一 个 给 台 定 的 字符 (不 包括 #\ ) 。 

write 和 display pa 写 入 一 个 给 定 的 S 表 达 式 ， 唯 一 的 区 别 
是 : write 程序 会 使 用 机 器 可 读 型 的 格式 而 display 程序 却 不 用 。 例 

如 ， write ee ， 用 A 句法 表示 字符 ， 但 display 却 不 这 人 么 
做 。 


newline 程序 会 在 输出 端口 输出 一 个 换行 符 。 


7.3 文件 端口 


如 果 端 口 是 标 准 的 输入 和 输出 端口 ，Scheme 的 MO 程序 就 不 需要 端口 参数 。 但 是 ， 
如 果 你 明确 需要 这 些 端口 ， 

则 current-input-port 和 current-output-port 这 些 零 参数 程序 会 提供 这 个 
功能 ， 例 如 : 


(display 9) 

(display 9 (current-output-port) ) 
拥有 相同 的 效果 。 
一 个 端口 通过 打开 文件 和 这 个 文件 关联 在 一 起 。 open-input-file 程序 会 接受 一 
个 文件 名 作为 参数 并 返回 一 个 和 这 个 文件 关联 的 新 的 输入 端 
口 。 open-output-file 程序 会 接受 一 个 文件 名 作为 参数 并 返回 一 个 和 这 个 文件 
关联 的 新 的 输出 端口 。 如 果 打 开 一 个 不 存在 的 输入 文件 ， 或 者 打开 一 个 已 经 存在 的 
输出 文件 ， 程 序 都 会 出 错 。 


当 你 已 经 在 一 个 端口 执行 完 输 入 或 输出 后 ， 你 需要 使 
用 close-input-port 或 close-output-port 程序 将 它 关 闭 。 


在 下 述 例子 中 ， 假 如 文件 hello.txt 文件 只 包含 一 个 单词 hello 。 


(define i (open-input-file "hello.txt")) 


(read-char 1) 
=> #\h 


(define j (read i)) 
J 
=> ello 


假如 文件 greeting.txt 在 下 述 程序 运行 前 不 存在 : 


(define o (open-output-file "greeting.txt")) 
(display "hello" o) 

(write-char #\space o) 

(display 'world o) 

(newline o) 


(close-output-port o) 


现在 Greeting.txt 文件 将 会 包含 这 样 一 行 : 


hello world 


7.3.1 文件 端口 的 自动 打开 和 关闭 


Scheme 提供 了 call-with-input-file 和 call-with-output-file 过 程 ， 这 
些 过 程 会 照顾 好 打开 的 端口 并 在 你 使 用 完 后 将 端口 关闭 。 


EA VINEERI NEE o TRER N 
在 一 个 已 打开 的 文件 输入 端口 。 当 程序 结束 时 ， 它 的 结果 会 在 保证 端口 关闭 后 返 
E o 


(call-with-input-file "hello.txt" 
(lambda (i) 
(let* ((a (read-char i)) 
(b (read-char i)) 
(c (read-char i))) 
(list a b c)))) 
=> (#\h #\e #\1) 


call-with-output-file 程序 会 对 输出 文件 提供 类 似 的 服务 。 


> he 2 
7.4 字符 串 端口 
一 般 来 说 将 字符 串 与 端口 相关 联 是 很 方便 的 。 因 此 ， open-input-string 程序 将 
一 个 给 定 的 字符 串 和 一 个 端口 关联 起 来 。 读 取 这 个 端口 的 程序 将 读 出 下 述 字 符 串 : 
(define i (open-input-string "hello world") ) 


(read-char 1) 
=> #\h 


(read i) 
=> ello 


(read i) 


=> world 


open-output-string 创建 了 一 个 输出 端口 ， 最 终 可 以 用 于 创建 一 个 字符 串 : 


(define o (open-output-string)) 


(write 'hello o) 
(write-char #\, 0) 
(display " oh 
(display "world" o) 


现在 你 可 以 使 用 get-output-string 程序 得 到 保留 在 字符 串 端口 o 中 的 字符 
串 : 


(get-output-string o) 
=> "hello, world" 


字符 串 端 口 不 需要 显 式 地 去 关闭 。 


7.5 加 载 文件 


我 们 已 将 看 到 load 程序 可 以 加 载 包 含 Scheme 代码 的 文件 。 load 一 个 文件 意 
味 着 按 顺序 a a La 。 load 中 的 路 径 参 数 是 相对 当前 
Scheme 工作 目录 计算 的 ， 该 工作 目录 一 般 是 调用 Scheme 可 执行 文件 时 的 目录 。 


文件 ， 这 在 包含 许多 文件 的 大 项 目 中 十 分 有 用 。 但 是 ， 除 
非 使 用 绝对 路 径 ， 否 则 load 参数 中 的 文件 位 置 将 依赖 于 执行 Scheme 的 当前 目 
录 。 而 提供 对 政信 名 是 很 方便 ， 因为 我 们 更 不 意 把 项 目 文件 作为 一 个 单元 
(保留 它们 的 相对 路 径 名 ) 在 很 多 不 同 机 器 中 运行 。 


Mzscheme 提 供 了 load-relative 程序 ， 可 以 很 好 的 解决 这 个 问 

题 。 load-relative ， 和 load 相似 ， 带 有 一 个 路 径 名 参数 。 当 在 foo.scm X 
件 中 出 现 load-relative 调用 时 ， 它 的 参数 的 路 径 将 根据 文件 foo.scm 所 在 目 
录 的 路 径 来 计算 。 特 别 注 意 的 是 ， 这 个 路 径 名 和 执行 Scheme 的 当前 目录 无 关 ， 
此 也 就 可 以 方便 地 进行 多 文件 程序 的 开发 。 


BAX Z 


用 户 可 以 通过 定义 宏 来 创建 属于 自己 的 special form 。 宏 是 一 个 具有 与 它 相 关 
联 的 转换 器 程序 的 标记 。 当 Scheme 遇 到 一 个 宏 表达 式 ， 即 以 macro 一 作为 开头 的 
列表 时 ， 它 会 将 宏 的 转换 器 应 用 于 宏 表达 式 中 的 子 列表 ， 而 且 会 对 最 后 的 转换 结果 
进行 来 值 2 


理想 情况 下 > “RRMA — Ae RAG LAR Aia LAY LA ER o RAPER 
对 于 缩写 那些 复杂 的 但 经 常 出 现 的 文本 模式 十 分 有 用 。 


宏 通 过 define-macro 来 定义 ( 见 附 录 A.3) 。 人 例如， 如 果 你 的 Scheme 缺少 条 件 
表达 式 when， 你 就 可 以 以 下 述 宏 定义 when : 


(define-macro when 
(lambda (test . branch) 
(list “if test 
(cons 'begin branch) ))) 


这 样 定 义 的 when 转 换 器 能 够 把 一 个 when 表 达 式 转换 为 等 价 的 if 表 达 式 。 用 这 个 宏 ， 
下 面 的 when 表 达 式 


(when (< (pressure tube) 60) 
(open-valve tube) 
(attach floor-pump tube) 
(depress floor-pump 5) 
(detach floor-pump tube) 
(close-valve tube)) 


将 会 被 转换 为 另 一 个 表达 式 ， 把 when 转 换 器 应 用 到 when 表 达 式 的 子 form 


(apply 
(lambda (test . branch) 
(list 'if test 

(cons 'begin branch))) 

'((< (pressure tube) 60) 
(open-valve tube) 
(attach floor-pump tube) 
(depress floor-pump 5) 
(detach floor-pump tube) 
(close-valve tube))) 


这 个 转换 产生 了 一 个 列表 : 


(if (< (pressure tube) 60) 
(begin 
(open-valve tube) 
(attach floor-pump tube) 
(depress floor-pump 5) 
(detach floor-pump tube) 
(close-valve tube))) 


Scheme 将 会 对 这 个 表达 式 进 行 求 值 ， 就 像 它 对 其 他 表达 式 所 做 的 一 样 。 
再 来 看 另 一 个 例子 ， 这 有 一 个 unless ( when 的 另 一 种 形式 ) 的 宏 定义 : 


(define-macro unless 
(lambda (test . branch) 
(List if 
(list ‘not test) 
(cons ‘begin branch) ))) 


另外 ， 我 们 可 以 调用 when 22% unless 定义 中 : 


(define-macro unless 
(lambda (test . branch) 
(cons 'when 
(cons (list 'not test) branch)))) 


宏 表达 式 可 以 引用 其 他 的 宏 。 


8.1 指定 一 个 扩展 为 模板 

宏 转 换 器 一 般 接受 一 些 S 表 达 式 作为 参数 ， 同 时 产生 可 以 被 作为 form 使 用 的 S 表 
达 式 。 通 常情 况 下 输出 是 一 个 列表 。 在 我 们 的 when 例 子 中 ， 使 用 下 面 语句 创建 输出 
列表 : 


(list 'if test 
(cons 'begin branch)) 


其 中 test 与 宏 的 第 一 个 子 form AR > Bp: 


(< (pressure tube) 60) 


同时 branch 与 余下 的 宏 的 子 form Bx > Bp: 


((open-valve tube) 
(attach floor-pump tube) 
(depress floor-pump 5) 
(detach floor-pump tube) 
(close-valve tube) ) 


输出 列表 可 能 会 变 得 相当 复杂 。 我 们 很 容易 能 够 发 现 比 when 更 加 庞大 的 宏 可 以 对 输 
出 列表 完成 精心 的 加 工 工程 。 这 种 情况 下 ， 更 方便 的 方法 是 把 宏 的 输出 指定 为 模 
板 ， 对 宏 的 每 种 用 法 把 相关 参数 插入 到 模板 的 适当 位 置 。Scheme 提 供 了 backquote 
语法 来 指定 这 种 模板 。 因 此 表达 式 : 


(list “IF test 
(cons 'BEGIN branch) ) 


写成 这 样 会 更 加 方便 : 


“(IF ,test 
(BEGIN ,@branch) ) 


我 们 能 够 将 when 的 宏 表 达 式 重 构 为 : 


(define-macro when 
(lambda (test . branch) 
“(IF ,test 
(BEGIN ,@branch) ))) 


注意 模板 的 格式 ， 并 不 像 早 先 列 表 的 结构 ， 而 是 对 输出 列表 的 形态 给 出 了 直接 的 视 
觉 指示 。 反 引号 C) 为 列表 引进 了 一 个 模板 。 除 了 以 过 号 (， 或 (,@) 作为 前 级 
KREN 模板 的 元 素 会 在 结果 列表 中 逐 字 出 现 。 (为 了 举例 ， 我 们 把 模板 的 每 一 


结果 中 原封 不 动 出 现 元 素 写 成 了 大 写 ) 。 


,  ,@ e 。 ， 播 入 的 是 过 号 后 面 紧 接 着 它 的 下 一 个 表 
达 式 求 值 后 结果 。 ,@ (comma-splice) 插 入 的 是 它 的 下 一 个 表达 式 先 splice 再 求 
值 的 结果 。 它 消除 了 最 外 面 的 括号 。 (这 说 明 被 comma-splice 引 用 的 表达 式 必 

须 是 一 个 列表 。) 


在 我 们 的 例子 中 ， 给 定 test 和 branch 的 绑 定 值 ， 很 容易 看 到 模板 将 扩展 到 所 
需 的 地 步 。 


(IF (< (pressure tube) 60) 
(BEGIN 
(open-valve tube) 
(attach floor-pump tube) 
(depress floor-pump 5) 
(detach floor-pump tube) 
(close-valve tube))) 


8.2 避免 在 宏 内 部 产生 变量 捕获 
一 个 二 变量 的 disjunction form ， my-or ， 可 以 定义 为 : 


(define-macro my-or 
(lambda (x y) 
“(if ,x ,x ,y))) 


my-or #HALAARHARORPAPR-AAM (GE) 的 值 。 特 别 的 ， 只 有 当 
第 一 个 参数 为 假 时 才 会 对 第 二 个 参数 求 值 。 


(my-or 1 2) 
=> 1 

(my-or #f 2) 
三 之 2 


上 述 的 my-or 宏 时 会 有 一 个 问题 。 如 果 第 一 个 参数 为 臣 ， 会 重新 求 值 第 一 个 参 
数 : 第 一 次 是 在 if 语 多 中 ， 第 二 次 在 then 分 支 。 如 果 第 一 个 参数 包含 副作用 ， 这 会 
造成 意外 的 结果 ， 例 如 : 


(my -or 
(begin 
(display "doing first argument") 
(newline) 
#t) 
2) 


显示 doing first argument 两 次 。 
这 个 


情况 可 以 通过 在 局 部 变量 中 储存 if 测试 结果 来 避免 : 


会 


(define-macro my-or 
(lambda (x y) 
“(let ((temp ,x)) 
(if temp temp ,y)))) 


这 样 基本 上 OK 了 ， 除 非 当 第 二 个 参数 在 宏 定 义 中 使 用 时 包含 相同 的 temp。 例 如 : 


(define temp 3) 


(my-or #f temp) 
= Hf 


当然 结果 应 该 是 3 ! BRPEORALHATERAT ARES temp 储存 第 一 个 参 
Z (af ) 的 值 ， 而 第 二 个 参数 中 的 变量 temp 被 宏 引 入 的 temp 所 捕获 。 


(define temp 3) 


(let ((temp #f)) 
(if temp temp 3)) 


类 错误 ， 我 们 在 选择 宏 定 义 中 的 局 部 变量 时 需要 小 心 行事 。 我 们 应 该 为 这 
圣 十 
择 


这 
量 选 择 古 怪 的 名 字 并 热切 希望 没有 人 会 跟 它 们 扯 上 关系 。 例 如 : 


(define-macro my-or 
(lambda (x y) 
“(let ((+temp ,x)) 
(if +temp +temp ,y)))) 


如 果 默 认 +temp 在 宏 之 外 的 代码 中 不 被 使 用 ， 则 它 就 是 正确 的 。 但 这 种 幻想 是 迟早 
要 破灭 的 。 


一 个 更 加 可 靠 详细 的 方法 就 是 生成 保证 不 会 被 其 他 方式 占用 的 符号 。 当 调 
用 gensym 程序 时 ， 它 会 产生 出 独一无二 的 标志 。 这 是 一 个 使 
用 gensym 的 my-or 的 安全 定义 : 


(define-macro my-or 
(lambda (x y) 


(let ((temp (gensym) ) ) 
“(let ((,temp ,x)) 


(if ,temp ,temp ,y))))) 


为 了 简明 ， 在 本 文中 定义 的 宏 ， 不 使 用 gensym 方法 。 相 反 ， 我 们 将 假设 变量 捕获 
这 个 问题 已 经 被 考虑 到 了 ， 而 使 用 更 加 简明 的 + 作为 前 级 。 我 们 把 这 些 将 加 号 开 
头 的 标识 符 转 换 为 gensym 的 工作 留 给 敏锐 的 读者 。 


8.3 fluid-let 


这 有 一 个 更 加 复杂 的 宏 的 定义 ， fluid-let ( 见 5.2 节 ) ° fluid-let 对 一 组 已 
经 存在 的 词法 变量 指定 了 临时 绑 定 。 假 定 一 个 fluid-let 表 达 式 如 下 


(fluid-let ((x 9) (y (+ y 1))) 
(XYy)) 


我 们 想 扩 展 为 : 


(let ((OLD-X x) (OLD-Y y)) 
(set! x 9) 
(set! y (+ y 1)) 
(let ((RESULT (begin (+ x y)))) 
(set! x OLD-X) 
(set! y OLD-Y) 
RESULT) ) 


在 例子 中 我 们 希望 标识 符 OLD-X ， OLD-Y 和 RESULT 不 会 捕获 Fluid-let 里 
的 变量 。 


下 述 例子 教 你 如 何 构造 一 个 可 以 实施 你 的 想法 的 fluid-let 宏 : 


(define-macro fluid-let 
(lambda (xexe . body) 
(let ((xx (map car xexe)) 
(ee (map cadr xexe)) 
(old-xx (map (lambda (ig) (gensym)) xexe)) 
(result (gensym))) 
“(let ,(map (lambda (old-x x) ~(,old-x ,x)) 
old-xx xx) 
,@(map (lambda (x e) 
(set! ,x ,e)) 
Xx ee) 
(let ((,result (begin ,@body) )) 
,@(map (lambda (x old-x) 
(set! ,x ,old-x)) 
xx old-xx) 
,result))))) 


宏 的 参数 是 xexe ， 是 由 fluid-let 引进 的 变量 /表达 式 列表 ;而 body ， 则 是 
在 fluid-let 主体 中 的 表达 式 列表 。 在 我 们 的 例子 中 ， 这 两 者 分 别 
是 本 【> ©) (C7 Ge al) 和 (x 


宏 的 主体 引进 了 一 堆 局 部 变量 xx 是 从 变量 /表达 式 中 提取 的 变量 列表 。 ee 是 
对 应 的 表达 式 列表 。 old-xx 是 新 的 标识 符 的 列表 ， 对 应 于 xx 中 的 每 个 变量 。 
这 些 曾 用 来 储存 xx 的 传 入 值 ， 这 样 我 们 可 以 将 xx 恢复 到 fluid-let 主体 来 值 
前 的 状态 。Result 是 另 一 个 新 标志 符 ， 用 来 储存 Fluid-let 主体 的 值 。 在 我 们 的 
例子 中 ， xx 是 (xy) ，ee 是 (9(+ y 1)) 。 根 据 你 的 系统 实现 gensym 的 
方式 ， old-xx 会 成 为 列表 (GEN-63 GEN-64) > result 会 成 为 GEN-65 ° 


在 我 们 的 例子 中 ， 由 宏 创建 的 输出 列表 像 这 样 : 


(let ((GEN-63 x) (GEN-64 y)) 
(set! x 9) 
(set! y (+ y 1)) 
(let ((GEN-65 (begin (+ x y)))) 
(set! x GEN-63) 
(set! y GEN-64) 
GEN-65) ) 


这 确实 可 以 满足 我 们 的 需求 。 


第 九 章 结构 


自然 分 组 的 数据 被 称 为 结构 。 我 们 可 以 使 用 Scheme 提供 的 复合 数据 结构 如 向 量 和 
列表 来 表示 一 种 “结构 "。 例 如 : 我 们 正在 处 理 与 树木 相关 的 一 组 数据 。 数 据 (或 者 
叫 字段 field ) 中 的 单个 元 素 包 括 : 高 度 ， 周 长 ， 年 龄 ， 树 叶 形 状 和 树叶 颜色 共 5 
个 字段 。 这 样 的 数据 可 以 表示 为 5 元 向 量 。 这 些 字 段 可 以 利用 vector-ref 访问 ， 
或 使 用 vector-set! 修改 。 尽 管 如 此 ， 我 们 仍然 不 希望 记忆 向 量 索 引 编 号 与 字段 
的 对 于 关系 ， 这 将 是 一 个 费力 不 讨好 而 且 容 易 出 错 的 事情 ， 尤 其 是 随 着 时 间 的 流 
逝 ， 一 些 字段 被 加 进来 ， 而 另 一 些 字段 会 被 删 掉 。 


因此 我 们 使 用 Scheme 的 宏 defstruct 去 定义 一 个 结构 ， 基 本 上 你 可 以 把 它 当 作 
fal ， 不 过 它 提供 了 很 多 方法 诸如 创建 结构 实例 、 访 问 或 修改 它 的 字段 等 
。 因 此 ， 我 们 的 树 结构 应 这 样 定义 : 


(defstruct tree height girth age leaf-shape leaf-color) 


这 样 它 自动 生成 了 一 个 名 为 make-tree 的 构造 过 程 ， 以 及 每 个 字段 的 访问 方法 ， 
命名 为 tree.height > tree.girth 等 等 。 构 造 方法 的 使 用 方法 如 下 : 


(define coconut 
(make-tree ‘height 30 
'leaf-shape 'frond 
rage 5)) 


这 个 构造 函数 的 参数 以 成 对 的 形式 出 现 ， 字 段 名 后 面 坚 跟 着 其 初始 值 。 这 些 字段 能 
以 任意 顺序 出 现 ， 或 者 不 出 现 如 果 字 段 的 值 没 有 定义 的 话 。 


访问 过 程 的 调用 如 下 所 示 : 





(tree.height coconut) => 30 
(tree.leaf-shape coconut) => frond 
(tree.girth coconut) => <undefined> 


tree. ae 存 取 程 序 返 回 一 个 未 定义 的 值 ， 因 为 我 们 没有 为 coconut 这 
个 tree 结构 指定 girth 的 值 。 


修改 过 程 的 调用 如 下 所 示 : 


(set!tree.height coconut 40) 
(set!tree.girth coconut 10) 


如 果 我 们 现在 重新 调用 访问 过 程 去 访问 这 > 我 们 会 得 到 新 的 值 : 


(tree.height coconut) => 40 
(tree.girth coconut) => 10 


9.1 默认 初始 化 


我 们 可 以 在 定义 结构 时 进行 一 些 初 始 化 的 设置 ， 而 不 是 在 每 个 实例 中 都 进行 初始 
化 。 因 此 ， 我 们 假定 leaf-shape 和 leaf-color 在 默认 情况 下 分 别 

为 frond 和 green 。 我 们 可 以 在 调用 make-tree 时 通过 显 式 的 初始 化 来 覆盖 掉 这 
些 默 认 值 ， 或 者 在 创建 一 个 结构 实例 后 使 用 上 面 提 到 的 字段 修改 过 程 : 


(defstruct tree height girth age 
(leaf-shape 'frond) 
(leaf-color 'green)) 


(define palm (make-tree ‘height 60)) 


(tree.height palm) 
=> 60 


(tree.leaf-shape palm) 
=> frond 


(define plantain 
(make-tree ‘height 7 
'‘leaf-shape 'sheet)) 


(tree.height plantain) 
z> 7 


(tree.leaf-shape plantain) 
=> sheet 


(tree.leaf-color plantain) 
=> green 


9.2 defstruct 定 义 
E defstruct 的 定义 如 下 : 


(define-macro defstruct 
(lambda (s . ff) 
(let ((s-s (symbol->string s)) (n (length ff))) 
(Let ((ntt (+ m 1)} 
(vv (make-vector n+1))) 
(let loop ((i 1) (ff ff)) 
(if (<= in) 


(let ((f (car ff ))) 
(vector-set! vv i 
(if (pair? f) (cadr f) '(if #f #f))) 
(loop (+ i 1) (cdr ff))))) 
(let ((ff (map (lambda (f) (if (pair? f) (car f) f)) 
ff))) 


“(begin 
(define ,(string->symbol 
(string-append "make-" s-s)) 
(lambda fvfv 
(let ((st (make-vector ,n+1)) (ff ', ff)) 
(vector-set! st 0 ',s) 
,@(let loop ((i 1) (r '())) 
(if (>= i ntl) r 
(loop (4 i. 2) 
(cons “(vector-set! st ,i 
,(vector-ref vv i)) 
r)))) 
(let loop ((fvfv fvfv)) 
(if (not (null? fvfv)) 
(begin 
(vector-set! st 
(+ (1ist-position (car fvfv) ff) 
1) 
(cadr fvfv)) 
(loop (cddr fvfv))))) 
st))) 
,@(let loop ((i 1) (procs '())) 
(if (>= i nti) procs 
(loop (+ i 1) 
(let ((f (symbol->string 
(list-ref ff (= i 1))))) 
(cons 
“(define ,(string->symbol 
(string-append 
S-S u f)) 
(lambda (x) (vector-ref x ,i))) 
(cons 
“(define , (string->symbol 
(string-append 
uset!" sig Wm f)) 
(lambda (x v) 
(vector-set! x ,1 v))) 
procs)))))) 
(define ,(string->symbol (string-append s-s "?")) 
(lambda (x) 
(and (vector? x) 
(eqv? (vector-ref x 0) ',S)))))))))) 


O1 
NO 


第 十 章 关联 表 和 表格 


关联 表 是 Scheme 一 种 特殊 形式 的 列表 。 列 表 的 每 一 个 元 素 都 是 一 个 点 对 ， 其 中 的 
car (左边 的 元 素 ) 被 称 为 一 个 " 键 "，cdr (右边 的 元 素 ) 被 称 为 和 该 键 关 联 的 值 。 
例如 : 


(a 1) Us. Oe en 


调用 程序 (assv k al) 能 在 关联 表 al 中 找到 和 键 k 关联 的 CONS 单 元 。 在 查 

找 时 关联 表 中 的 键 与 k 使 用 eqv? 过 程 来 比较 。 然 而 有 时 我 们 可 能 希望 自 定 义 一 
个 键 的 比较 函数 。 例 如 ， 如 果 键 是 不 区 分 大 小 写 的 字符 串 ， 那 默认 的 eqv? 就 没 什 
ART 。 


我 们 现在 定义 一 个 结构 table (表格 )， 这 是 一 个 改进 后 的 关联 表 ， 它 可 以 允许 用 
户 在 它 的 键 上 自 定义 比较 函数 。 它 的 字段 是 equ 和 alist 。 


(defstruct table (equ eqv?) (alist '())) 





(默认 的 比较 函数 是 eqv? 对 于 一 个 普通 的 关联 表 一 一 关联 表 的 初始 化 为 


空 。) 
我 们 将 使 用 程序 table-get 得 到 与 一 个 给 定 键 关联 的 值 (相对 于 cons 单 

元 ) ° table-get 接受 一 个 table (表格 ) 和 一 个 键 作 为 参数 ， 还 有 一 个 可 选 的 默 
认 值 ， 这 样 若 在 表格 中 未 找到 该 键 则 返回 该 默认 值 : 


(define table-get 
(lambda (tbl k . d) 
(let ((c (lassoc k (table.alist tbl) (table.equ tbl)))) 
(cond (c (cdr c)) 
((pair? d) (car d)))))) 


在 table-get 中 使 用 的 程序 lassoc ， 定 义 如 下 : 


(define lassoc 
(lambda (k al equ?) 
(let loop ((al al)) 
(if (null? al) #f 
(let ((c (car al))) 
(if (equ? (car c) k) c 
(loop (cdr al)))))))) 


程序 table-put 用 来 更 新 给 定 表格 中 的 一 个 键 的 值 : 


(define table-put! 
(lambda (tbl k v) 
(let ((al (table.alist tbl))) 
(let ((c (lassoc k al (table.equ tbl)))) 
(if c (set-cdr! c v) 
(set!table.alist tbl (cons (cons k v) al))))))) 


程序 table-for-each 为 每 个 表格 中 键 / 值 对 调用 给 定 的 程序 


(define table-for-each 
(lambda (tbl p) 
(for-each 
(lambda (c) 


(p (car ce) (cdr c))) 
(table.alist tbl)))) 


第 十 一 章 系统 接口 


一 个 有 用 的 Scheme 程序 经 常 需要 与 底层 操作 系统 进行 交互 。 


11.1 检查 和 删除 文件 


file-exists? 会 检查 它 的 参数 字符 串 是 否 是 一 个 文件 。 delete-file 接受 一 个 
文件 名 字符 串 作 为 参数 并 删除 相应 的 文件 。 这 些 程序 并 不 是 Scheme 标准 的 一 部 

分 ， 但 是 在 大 多 数 Scheme 实 现 中 都 能 找到 它们 。 用 这 些 过 程 操 作 目 录 (而 不 是 文 
件 ) 并 不 是 很 可 靠 。 (用 它们 操作 目录 的 结果 与 具体 的 Scheme 实 现 有 关 。) 


file-or-directory-modify-seconds 过 程 接受 一 个 文件 名 或 目录 名 为 参数 ， 并 
返回 这 个 目录 或 文件 的 最 后 修改 时 间 。 时 间 是 从 格林 威 治标 准时 间 1970 年 1 月 1 日 0 
点 开始 记 时 的 。 例 如 : 


(file-or-directory-modify-seconds "hello.scm") 
=> 893189629 


假定 hello.scm 文件 最 后 一 次 修改 的 时 间 是 1998 年 4 月 21 日 的 某 个 时 间 。 


11.2 调用 操作 系统 命令 


system 程序 把 它 的 参数 字符 串 当 作 操 作 系 统 命令 来 执行 [1]。 如 果 命 bey Le 
FAA? CAAA > Resin K HA E KFC » oe 返回 候 。 命 令 


产生 的 任何 输出 都 会 进入 标准 的 输出 。 


(Systems ) 
; lists current directory 


(define fname "spot") 


(system (string-append "test -f " fname) ) 
;tests 1f file spot" exists 


(system (string-append "rm -f " fname) ) 
;removes `spot' 


最 后 两 个 命令 等 价 于 : 


(file-exists? fname) 


(delete-file fname) 


11.3 环境 变量 
过 程 getenv 返回 操作 系统 环境 变量 的 设 定 值 ， 如 : 


(getenv "HOME" ) 
=> "/home/dorai" 


(getenv "SHELL") 
=> "/bin/bash" 


[1] MzScheme# process 库 中 提供 了 system 过 程 。 使 
用 (require (lib "process.ss")) 来 加 载 这 个 库 。 


第 十 二 章 对 象 和 类 


类 是 描述 了 一 组 有 共同 行为 的 对 象 。 由 类 描述 的 对 象 称 为 类 的 一 个 实例 。 类 指定 了 
其 实例 拥有 的 属性 (RXASltKH) 的 名 称 ， 而 这 些 属性 的 值 由 实例 自身 来 进 
行 填 充 。 类 同样 也 指定 了 可 以 应 用 于 其 实例 的 方法 (method)。 属 性 值 可 以 是 任何 
形式 ， 但 方法 的 值 必 须 是 过 程 。 


类 具有 继承 性 。 因 此 ， 一 个 类 可 以 是 另 一 个 类 的 子 类 ， 我 们 称 另 一 个 类 为 它 的 父 
类 。 一 个 子 类 不 仅 有 它 自己 “直接 的 "属性 和 方法 ， 也 会 继承 它 的 父 类 的 所 有 属性 和 
方法 。 如 果 一 个 类 里 有 与 其 父 类 相同 名 称 的 属性 和 方法 ， 那 么 仅 保留 子 类 的 属性 和 
方法 。 


12.1 一 个 简单 的 对 加 系统 


现在 我 们 用 Scheme 来 实现 一 个 基本 的 对 象 系统 。 对 于 每 个 类 ， 我 们 只 允许 有 一 个 
RE (BAR) 。 如 果 我 们 不 想 指定 一 个 父 类 ， 我 们 可 以 用 #t 作为 一 个 “元 ” 父 
类 ， 既 没有 属性 ， 也 没有 方法 。 而 #t 的 父 类 则 认为 是 它 自己 。 


作为 一 次 尝试 ， 用 结构 standard-class 来 定义 类 应 该 是 很 好 的 一 种 方式 ， 用 结 
构 的 字段 来 保存 属性 名 字 ， 父 类 以 及 方法 。 前 两 个 字段 我 们 分 别 叫 

做 slots 和 superclass 。 我 们 将 使 用 两 个 字段 来 描述 方法 ， 

用 method-names 字段 来 描述 类 的 方法 的 名 称 列 表 ， 用 method-vector 字段 来 
保存 一 个 矢量 ， 里 面 放 着 类 的 方法 。 这 是 standard-class 的 定义 : 


(defstruct standard-class 
slots superclass method-names method-vector) 


A 


我 们 可 以 用 make-standard-class > PP standard-class 的 制造 程序 ( 见 第 九 章 ) 
来 创建 一 个 新 的 类 : 


(define trivial-bike-class 
(make-standard-class 
"superclass #t 
‘slots '(frame parts size) 
"'method-names '() 
"method-vector #())) 


这 是 一 个 非常 简单 的 类 ， 更 加 复杂 的 类 会 有 有 意义 的 父 类 和 方法 ， 这 需要 在 创建 类 
时 进行 大 量 的 初始 化 设置 ， 我 们 希望 把 这 些 工 作 隐 藏 在 创建 类 的 过 程 中 。 因 此 我 们 
定义 一 个 create-class KAM make-standard-class 进行 适当 的 调用 。 


(define-macro create-class 
(lambda (superclass slots . methods) 
~(create-class-proc 
, superclass 
(list ,@(map (lambda (slot) ~',slot) slots)) 
(list ,@(map (lambda (method) ~',(car method)) methods) ) 
(vector ,@(map (lambda (method) ~,(cadr method)) methods ) ) )) 


4 I 











我 们 稍 后 再 介绍 create-class-proc 程序 的 定义 。 


make-instance 程序 创建 类 的 一 个 实例 ， 由 类 中 包含 的 信息 产生 一 个 新 的 向 量 。 
实例 向 量 的 格式 非常 简单 : 它 的 第 一 个 元 素 指 向 这 个 类 (引用 ) ， 余 下 的 元 素 都 是 
属性 值 。 make-instance 的 第 一 个 参数 是 一 个 类 ， 后 面 的 参数 是 成 对 的 序列 ， 而 
每 一 个 “对 ”是 属性 名 称 和 该 实例 中 属性 的 值 。 


(define make-instance 
(lambda (class . slot-value-twosomes) 


‘Find ~n', the number of slots in ‘class'. 

;Create an instance vector of length `n + 1', 
;because we need one extra element in the instance 
;to contain the class. 


(let* ((slotlist (standard-class.slots class)) 
(n (length slotlist)) 
(instance (make-vector (+ n 1)))) 
(vector-set! instance 0 class) 


"Fill each of the slots in the instance 
;with the value as specified in the call to 
; make-instance'. 


(let loop ((slot-value-twosomes slot-value-twosomes)) 
(if (null? slot-value-twosomes) instance 
(let ((k (list-position (car slot-value-twosomes) 
slotlist))) 
(vector-set! instance (+ k 1) 
(cadr slot-value-twosomes ) ) 
(loop (cddr slot-value-twosomes)))))))) 


这 是 一 个 类 的 实例 化 的 例子 : 


(define my-bike 
(make-instance trivial-bike-class 
'frame 'cromoly 
'size '18.5 
‘parts alivio) 


这 将 my-bike 变量 绑 定 到 如 下 所 示 的 实例 上 。 


#(<trivial-bike-class> cromoly 18.5 alivio) 


<trivial-bike-class> 是 一 个 Scheme 数据 ( 另 一 个 向 量 ) 代 表 之 前 定义 
的 trivia-bike-class 的 值 。 


class-of 程序 返回 该 实例 对 应 的 类 : 


(define class-of 
(lambda (instance) 
(vector-ref instance 0))) 


这 里 假定 class-of 的 参数 是 一 个 类 的 实例 ， 即 一 个 向 量 ， 其 第 一 个 元 素 指 
向 standard-class 的 一 些 实例 。 我 们 可 能 想 使 class-of 对 我 们 给 定 的 任何 类 
型 Scheme 对 象 返回 一 个 合适 的 值 。 


(define class-of 
(lambda (x) 
(if (vector? x) 
(let ((n (vector-length x))) 
(if (>= n 1) 
(let ((c (vector-ref x 0))) 
(if (standard-class? c) c #t)) 

#t)) 


#t))) 


不 是 用 standard-class 创建 的 Scheme 对 象 的 类 被 认为 是 #t ， 即 "元 类 ”。 


slot-value 过 程 和 set!slot-value 过 程 用 来 访问 和 改变 一 个 类 实例 的 值 : 


(define slot-value 
(lambda (instance slot) 
(let* ((class (class-of instance) ) 
(slot - index 
(list-position slot (standard-class.slots class)))) 
(vector-ref instance (+ slot-index 1))))) 


(define set!slot-value 
(lambda (instance slot new-val) 
(let* ((class (class-of instance) ) 
(slot - index 
(list-position slot (standard-class.slots class)))) 
(vector-set! instance (+ slot-index 1) new-val)))) 


我 们 现在 来 解决 create-class-proc 的 定义 问题 。 这 个 过 程 接受 一 个 父 类 ， 一 个 
属性 的 列表 ， 一 个 方法 名 称 的 列表 和 一 个 包含 方法 体 的 向 量 ， 并 适当 调 

用 make-standard-class 程序 。 唯 一 困难 的 部 分 是 给 定 的 属性 字段 的 值 。 由 于 一 
个 类 必须 包括 它 的 父 类 的 属性 ， 因 此 不 能 只 有 create-class 提供 的 属性 参数 。 
我 们 必须 把 所 给 的 属性 追加 到 父 类 的 属性 中 ， 并 保证 没有 重复 的 属性 。 


(define create-class-proc 
(lambda (superclass slots method-names method-vector ) 

(make-standard-class 

"superclass superclass 

ES LOES 

(let ((superclass-slots 

(if (not (eqv? superclass #t)) 
(standard-class.slots superclass) 


(if (null? superclass-slots) slots 
(delete-duplicates 


(append slots superclass-slots)))) 
'method-names method-names 
'method-vector method-vector))) 


t delete-duplicates 接受 一 个 列表 s 为 参数 ， 返 回 一 个 新 列表 ， 该 列表 只 
包含 s 中 每 个 元 素 的 最 后 一 次 出 现 。 


(define delete-duplicates 
(lambda (s) 
(if (null? s) s 
(let ((a (car s)) (d (cdr s))) 
(if (memv a d) (delete-duplicates d) 
(cons a (delete-duplicates d))))))) 


现在 谈 谈 方法 的 应 用 。 我 们 通过 使 用 send 程序 调用 一 个 类 实例 的 方 

法 。 send 的 参数 是 方法 的 名 字 ， 紧 接着 是 类 实例 ， 以 及 除了 类 实例 本 身 之 外 的 该 
方法 的 其 他 参数 。 由 于 方法 储存 在 实例 的 类 中 而 不 是 在 实例 本 身 中 ， 因 此 send 会 
在 该 实例 对 于 的 类 中 寻找 该 方法 。 如 果 没 有 找到 ， 则 到 父 类 中 寻找 ， 如 此 直到 找 完 
整个 继承 链 : 


(define send 
(lambda (method instance . args) 
(let ((proc 
(let loop ((class (class-of instance))) 
(if (eqv? class #t) (error 'send) 
(let ((k (list-position 
method 
(standard-class.method-names class) ))) 
(if k 
(vector-ref (standard-class.method-vector c- 
(loop (standard-class.superclass class))))). 
(apply proc instance args)))) 


我 们 现在 可 以 定义 一 些 更 有 趣 的 类 了 : 





(define bike-class 
(create-class 
#t 
(frame size parts chain tires) 
(check-fit (lambda (me inseam) 
(let ((bike-size (slot-value me 'size)) 
(ideal-size (* inseam 3/5))) 
(let ((diff (- bike-size ideal-size) )) 
(cond ((<= -1 diff 1) 'perfect-fit) 
((<= -2 diff 2) 'fits-well) 
((< diff -2) 'too-small) 
((> diff 2) ‘too-big)))))))) 


这 里 ， bike-class 包括 一 个 名 为 check-fit 的 方法 ， 它 接受 一 个 自行 车 的 实例 
和 一 个 裤 腿 的 尺寸 作为 参数 ， 并 报告 该 车 对 这 种 裤 腿 尺寸 的 人 的 适应 性 。 


我 们 再 来 定义 my-bike 


(define my-bike 
(make-instance bike-class 
'frame 'titanium ; I wish 
'size 21 
‘parts 'ultegra 
'chain "sachs 
‘tires 'continental) ) 


检查 这 个 车 与 裤 腿 尺寸 为 32 的 某 个 人 是 否 搭 配 : 


(send 'check-fit my-bike 32) 


我 们 再 定义 子 类 bike-class 。 


(define mtn-bike-class 
(create-class 
bike-class 
(suspension) 
(check-fit (lambda (me inseam) 
(let ((bike-size (slot-value me 'size)) 
(ideal-size (- (* inseam 3/5) 2))) 
(let ((diff (- bike-size ideal-size))) 
(cond ((<= -2 diff 2) 'perfect-fit) 
((<= -4 diff 4) 'fits-well) 
((< diff -4) 'too-small) 
((> diff 4) 'too-big)))))))) 


Mtn-bike-class 添加 了 一 个 名 为 suspension 的 属性 。 并 定义 了 一 个 稍微 不 同 
的 名 为 check-fit 的 方法 。 


12.2 类 也 是 实例 


到 这 里 为 止 ， 精 明 的 读者 可 能 已 经 发 现 了 : 类 本 身 可 以 是 某 些 其 他 类 (如 “元 类 ”) 
的 实例 。 注 意 所 有 类 都 有 一 些 相 同 的 特点 : 每 个 都 有 属性 、 父 类 、 方 法 名 称 的 列表 
和 和 包含 方法 体 的 向 量 。 make-instance 看 起 来 像 是 他 们 所 共享 的 方法 。 这 意味 着 
我 们 可 以 通过 另 一 个 类 (当然 也 是 某 个 类 的 实例 啦 ) 来 指定 这 些 共 同 的 特点 。 


具体 的 说 就 是 我 们 可 以 重 写 我 们 的 类 实现 并 实现 其 自身 〈 好 别扭 ) 。 使 用 面向 对 象 
的 方法 ， 这 样 我 们 可 以 确保 不 会 遇 到 鸡 生 蛋 ， 蛋 生 鸡 的 问题 。 这 样 我 们 会 跳 
出 class 结构 和 它 相 关 的 过 程 并 余下 的 方法 来 把 类 定义 为 对 象 。 


我 们 现在 把 standard-class 作为 其 他 类 的 父 类 。 特 别 的 ， standard-class 必 
须 是 它 自 己 的 一 个 实例 。 那 么 standard-class 应 该 是 什么 样子 的 呢 ? 


我 们 知道 standard-class 是 一 个 实例 ， 而 且 我 们 用 一 个 向 量 来 表示 这 个 实例 。 
所 以 最 终 是 一 个 向 量 ， 其 第 一 个 元 素 是 它 的 父 类 ， 也 就 是 它 自己 ， 而 余下 的 元 率 是 
属性 值 。 我 们 已 经 确定 有 四 个 所 有 类 都 必须 有 的 属性 ， 因 此 standard-class 是 
一 个 5 个 元 素 的 向 量 。 


(define standard-class 
(vector 'value-of-standard-class-goes-here 

(list “Slots 
"superclass 
'method-names 
"method-vector ) 

#t 

'(make-instance) 

(vector make-instance) ) ) 


注意 到 standard-class 这 个 向 量 并 没有 被 完全 填充 : 符 

号 value-of-standard-class-goes-here 此 时 仅仅 做 占 位 用 。 现 在 我 们 已 经 定 
义 了 一 个 standard-class 的 值 ， 现 在 我 们 可 以 用 它 来 确定 它 自己 的 类 ， 即 它 本 
身 o 


(vector-set! standard-class 0 standard-class) 


注意 我 们 不 能 用 class 结构 提供 的 过 程 了 。 我 们 必须 把 下 面 的 形式 : 


(standard-class? x) 
(standard-class.slots c) 
(standard-class.superclass c) 
(standard-class.method-names c) 
(standard-class.method-vector c) 
(make-standard-class ...) 


换 成 : 


(and (vector? x) (eqv? (vector-ref x ©) standard-class)) 
(vector-ref c 1) 

(vector-ref c 2) 

(vector-ref c 3) 

(vector-ref c 4) 

(send 'make-instance standard-class ...) 


12.3 多 重 继承 


我 们 可 以 容易 的 修改 这 个 对 象 系统 使 类 可 以 有 一 个 以 上 的 父 类 。 我 们 重新 定 

SL standard-class 来 添加 一 个 属性 叫 class-precedence-list 取 

代 superclass ， 一 个 类 的 class-precedence-list 是 它 所 有 父 类 的 列表 ， 而 
不 只 有 通过 create-class 创建 时 指定 的 “直接 "的 父 类 。 从 这 个 名 字 可 以 看 出 其 超 
类 是 以 一 种 特定 的 顺序 来 存放 的 ， 前 面 的 超 类 有 比 后 面 超 类 更 高 的 优先 级 。 


(define standard-class 
(vector 'value-of-standard-class-goes-here 
(list 'slots 'class-precedence-list 'method-names 'methoc 
'() 
'(make-instance) 
(vector make-instance) ) ) 


不 仅 属性 列表 改变 来 存放 新 的 属性 ， 而 且 superclass 属性 也 从 #t BA O ， 
这 是 因为 standard-class 的 class-precedence-list 必须 是 一 个 列表 。 我 们 
可 以 令 它 的 值 为 (#t) ， 但 是 我 们 不 会 提 到 元 类 ， 由 于 它 在 每 个 类 





的 class-precedence-list 中 。 


宏 create-class 也 需要 修改 来 接受 一 个 超 类 的 列表 而 不 是 一 个 单独 的 超 类 。 


(define-macro create-class 
(lambda (direct-superclasses slots . methods) 
~(create-class-proc 
(list ,@(map (lambda (su) `,su) direct-superclasses) ) 
(list ,@(map (lambda (slot) ~',slot) slots)) 
(list ,@(map (lambda (method) ~',(car method)) methods) ) 
(vector ,@(map (lambda (method) ~,(cadr method)) methods) ) 


ID) 


create-class-proc 必须 根据 提供 的 超 类 给 出 类 的 优先 级 列表 ， 并 根据 优先 级 给 
出 属性 列表 : 


(define create-class-proc 
(lambda (direct-superclasses slots method-names method-vector ) 
(let ((class-precedence-list 
(delete-duplicates 
(append-map 
(lambda (c) (vector-ref c 2)) 
direct-superclasses) ))) 
(send 'make-instance standard-class 
'class-precedence-list class-precedence-list 
'slots 
(delete-duplicates 
(append slots (append-map 
(lambda (c) (vector-ref c 1)) 
class-precedence-list))) 
'method-names method -names 
'method-vector method-vector)))) 


过 程 append-map 是 一 个 append 和 map 的 组 合 : 


(define append-map 
(lambda (f s) 
(let loop ((s s)) 
(ar (nuLl? s) *() 
(append (f (car s)) 
(loop (cdr s))))))) 


过 程 send 在 寻找 一 个 方法 时 必须 从 左 到 右 搜索 类 的 优先 级 列表 : 


(define send 
(lambda (method-name instance . args) 
(let ((proc 
(let ((class (class-of instance) )) 
(if (eqv? class #t) (error 'send) 
(let loop ((class class) 
(superclasses (vector-ref class 2))) 
(let ((k (list-position 
method-name 
(vector-ref class 3)))) 
(cond (k (vector-ref 
(vector-ref class 4) k)) 
((null? superclasses) (error 'send)) 
(else (loop (car superclasses) 
(cdr superclasses)))) 
)))))) 


(apply proc instance args)))) 


理论 上 我 们 可 以 把 方法 也 定义 为 属性 ( 值 为 一 个 过 程 ) ， 但 是 有 很 多 理由 不 这 样 
做 ， 类 的 实例 共享 方法 但 是 通常 有 不 同 的 属性 值 。 也 就 是 说 ， 方 法 可 以 包括 在 类 定 
义 中 ， 而 且 不 需要 每 次 实例 化 时 都 进行 设置 就 像 属 性 那样 。 





第 十 三 章 what 


Scheme 的 一 个 显著 标志 是 它 支持 跳 转 或 者 nonlocal control 。 特 别 是 Scheme 
允许 程序 控制 跳 转 到 程序 的 任意 位 置 ， 相 比 之 下 条 件 语句 和 函数 调用 的 限制 要 更 多 
一 些 。Scheme 的 nonlocal control 操作 符 是 一 个 名 

为 call-with-current-continuation 的 过 程 。 下 面 我 们 会 看 到 如 何 用 这 个 操作 
符 创建 一 些 惊人 的 控制 效果 。 


13.1 call-with-current-continuation 


call-with-current-continuation 用 current-continuation 来 调用 它 的 参 
数 人 有 一 个 参数 的 过 程 ) 【在 调用 时 传 入 参数 current-continuation ， 
译 者 注 】。 这 就 是 这 个 操作 符 名 字 的 解释 了 。 但 是 由 于 这 个 名 字 太 长 ， 故 通常 缩 
为 call/cc [1]° 


一 个 程序 执行 到 任意 一 点 的 当前 续 延 【 即 current-continuation ， 译 者 注 】 是 
该 程序 的 后 半 部 分 【即将 要 被 执行 的 部 分 ， 译 者 注 】。 因 此 在 程序 : 


Reca CE 
(lambda (k) 
(+ 2 (k 3))))) 


中 ， R o aA call/cc 程序 的 角度 来 看 ， 是 如 下 的 带 有 一 个 “ 洞 "的 程序 
(SD ; 


也 就 是 说 ， 该 程序 的 “ 续 延 "是 一 个 把 1 FH aa MIA’ BA KB Re RKR o 
这 就 是 call/cc 参数 被 调用 的 情况 。 记 住 call/cc 的 参数 是 过 程 : 


(lambda (k) 
CEREK 


RPA” (MAME kL) apply 到 参数 3 上 。 这 就 是 这 个 续 延 

与 众 不 同 之 处 。“ 续 延 "调用 突然 放弃 了 它 自己 的 计算 并 把 当前 的 计算 换 成 了 k PR 
存 的 程序 。 也 就 是 说 ， 这 个 程序 中 加 2 的 操作 被 放弃 了 ， 然 后 k 的 参数 3 直接 

被 发 送 到 了 那个 带 “ 洞 "的 程序 : 


(+ 1 []) 


然后 程序 就 简单 的 变 成 : 


(2) 153) 


然后 返回 4 o Bp: 


(et (eall/ce 
(lambda (k) 
(+ 2 (k 3))))) 


上 面 的 例子 叫做 “退出 ' 续 延 *， 用 来 退出 某 个 计算 过 程 (这 里 是 (+ 2 []) 的 计 
算 ) 。 这 是 一 个 很 有 用 的 功能 ， 但 是 Scheme 的 续 延 可 以 用 来 返回 到 前 面 放弃 计算 
的 地 方 ， 然 后 多 次 调用 它们 。 程 序 的 “后 半 部 分 "意味 着 一 个 续 延 不 论 我 们 调用 的 次 
数 和 时 间 都 存在 ， 这 也 让 call/cc 更 加 强大 和 令 人 迷惑 。 看 一 个 简单 的 例子 ， 在 
解释 器 里 输入 以 下 代码 : 


(define r #f) 
(+ 1 (call/cc 
(lambda (k) 


(set! r k) 
(+ 2 (k 3))))) 


后 面 的 表达 式 和 刚才 一 样 返回 了 4 ， 不 同 之 处 在 于 这 次 我 们 把 续 延 k 保存 到 了 全 
局 变量 rr 里。 

现在 我 们 在 r 中 永久 保存 了 这 个 续 延 。 如 果 我 们 以 一 个 数字 为 参数 调用 它 ， 就 会 
返回 数字 加 1 后 的 结果 : 


(r 5) 
=> 6 


注意 r 会 放弃 它 自己 的 续 延 ， 打 个 比方 我 们 把 对 『 的 调用 放 在 一 个 上 下 文中 : 


(+ 3 (r 5)) 
=> 6 


因此 call/cc seth i) 2 Ee — AP ALF” AY EE o 


13.2 “ik h” ee xe 


“退出 " 续 延 是 call/cc 最 简单 的 用 法 ， 而 且 在 退出 函数 或 循环 时 非常 有 用 。 考 虑 
一 个 过 程 1ist-product 接收 一 个 数字 列表 并 把 所 有 的 数 乘 起 来 。 一 个 直观 的 递 
归 定 义 可 以 这 样 写 : 


(define list-product 
(lambda (s) 
(let recur ((s s)) 
(if (nubl? s) 1 
(* (car s) (recur (cdr s)))))))) 


这 个 方法 有 一 个 问题 。 如 果 列 表 中 有 一 个 数 是 0， 而 且 0 后 面 还 有 很 多 元 素 ， 那 么 结 
果 是 可 以 预知 的 。 如 果 这 样 上 面 的 代码 会 在 得 出 结果 前 产生 很 多 无 意义 的 递归 调 

用 。 这 就 是 “退出 " 续 延 大 显 身手 的 时 候 。 用 call/cc ， 我 们 可 以 这 样 重 写 这 个 过 
F: 


Sh 


(define list-product 
(lambda (s) 
(call/cc 
(lambda (exit) 
(let recur ((s s)) 
lei (Omit S 
(if (= (car s) 0) (exit 0) 
(* (car s) (recur (cdr s)))))))))) 


如 果 遇 到 一 个 为 0 的 元 素 ， 续 延 exit 就 会 以 参数 0 被 调用 ， 这 样 就 防止 了 更 多 的 调 
用 recur 。 
13.3 树 匹 配 


一 个 更 加 复杂 的 例子 是 把 续 延 用 于 解决 两 个 树 是 否 有 相同 边缘 (就 是 相同 的 元 素 
( 叶 节 点 ) 有 相同 的 顺序 ) 的 问题 上 。 如 : 


(same-fringe? '(1 (2 3)) '((1 2) 3)) 
=> #t 


(same-fringe? '(1 2 3) '(1 (3 2))) 
=> #f 


纯粹 的 函数 式 解 决 方案 是 把 两 个 树 都 抹 平 然后 看 结果 是 否 一 样 。 


(define same-fringe? 
(lambda (tree1 tree2) 
(let loop ((ftree1 (flatten treet) ) 
(ftree2 (flatten tree2))) 
(cond ((and (null? ftree1) (null? ftree2)) #t) 
((or (null? ftree1) (null? ftree2)) #f) 
((eqv? (car ftree1) (car ftree2)) 
(loop (cdr ftree1) (cdr ftree2))) 
(else #f))))) 


(define flatten 
(lambda (tree) 
(cond ((null? tree) '()) 
((pair? (car tree)) 
(append (flatten (car tree)) 
(flatten (cdr tree)))) 
(else 
(cons (car tree) 
(flatten (cdr tree))))))) 


然而 ， 这 样 会 遍历 整个 树 来 进行 抹 平 操作 ， 而 且 还 要 再 做 一 遍 这 样 的 操作 【遍历 被 
抹 平 后 生成 的 列表 ， 译 者 注 】 才 能 找到 不 匹配 的 元 素 。 退 一 步 讲 ， 即 使 最 好 的 抹 平 
算法 也 需要 cons (直接 修改 输入 的 树 是 不 可 以 的 ) 

我 们 可 以 用 call/cc 来 解决 这 个 问题 ， 不 需要 人 遍历， 也 不 需要 用 cons 来 拼接 。 
每 个 树 会 被 map 到 一 个 生成 器 一 个 带 有 内 部 状态 的 过 程 ， 按 照 叶 节点 在 树 中 
出 现 的 顺序 从 左 到 右 连 续 的 输出 叶 节 点 。 





(define tree->generator 
(lambda (tree) 
(let ((caller '*)) 


(letrec 
((generate-leaves 
(lambda () 


(let loop ((tree tree)) 
(cond ((null? tree) 'skip) 
((pair? tree) 
(loop (car tree)) 
(loop (cdr tree))) 
(else 
Cea vec 
(lambda (rest-of-tree) 
(set! generate-leaves 
(lambda () 
(rest-of-tree 'resume))) 
(caller tree)))))) 


(caller '())))) 
(lambda () 


(callyice 

(lambda (k) 
(set! caller k) 
(generate-leaves)))))))) 


当 一 个 tree->generator 创建 的 生成 器 被 调用 时 ， 这 个 生成 器 会 把 调用 的 续 延 存 
在 caller 中 ， 这 样 它 就 知道 当 找到 叶 节 点 时 把 它 发 送 给 谁 。 然 后 它 调用 一 个 内 部 
定义 的 函数 generate-leaves ， 该 函数 会 从 左 到 右 循 环 遍 历 这 个 树 。 当 循环 到 一 
个 叶 节 点 时 ， 该 函数 就 使 用 caller 来 返回 该 叶 节 点 作为 生成 器 的 结果 ， 但 是 它 会 
记 住 后 续 的 循环 (被 call/cc 捕获 为 一 个 续 延 ) 并 保存 到 generate-leaves 变 
量 ， 下 次 生成 器 被 调用 时 ， 循 环 从 刚才 终端 的 地 方 恢复 ， 这 样 它 可 以 寻找 下 一 个 叶 
节点 。 


注意 Tan ee 做 的 最 后 一 件 事情 ， 在 循环 结束 后 ， 它 返回 一 个 空 列表 
给 caller 空 列表 不 是 一 个 合法 的 叶 节 点 ， 我 们 可 以 用 它 来 告诉 生成 器 没有 
叶 节 了 o 


过 程 same-fringe? 把 树 作 为 参数 来 创建 生成 器 ， 然 后 交替 调用 这 两 个 生成 器 。 
只 要 一 找到 两 个 不 同 的 叶 节 点 就 会 返回 失败 。 


(define same-fringe? 
(lambda (tree1 tree2) 
(let ((geni (tree->generator treei1)) 
(gen2 (tree->generator tree2))) 
(let loop () 
(let ((leafi (geni)) 

(leaf2 (gen2))) 

(if (eqv? leafi leaf2) 
(if (null? leaf1) #t (loop)) 
#f)))))) 


很 容易 看 到 每 个 树 只 被 遍历 了 最 多 一 次 ， 在 遇 到 不 匹配 的 情况 时 ， 只 会 遍历 最 左边 
的 那个 不 匹配 节点 【 ?了 】。 而 且 没 有 用 到 cons 。 


13.4 协 程 


上 面 用 到 的 生成 器 是 一 些 有 趣 而 普遍 的 过 程 概念 。 每 次 生成 器 被 调用 时 ， 它 都 恢复 
计算 ， 而 且 当 它 返 回 前 会 把 它 的 续 延 保存 在 一 个 内 部 变量 中 这 样 这 个 生成 器 可 以 再 
次 恢复 。 我 们 可 以 对 生成 器 进行 推广 ， 这 样 他 们 可 以 相互 恢复 其 他 的 生成 器 ， 并 且 
互相 传递 结果 。 这 样 的 过 程 叫 协 程 。 


我 们 将 会 看 到 一 个 协 程 作为 一 元 过 程 ， 其 主体 可 以 包含 resume 调 

用 ， resume 是 一 个 两 参数 的 过 程 ， 可 以 被 一 个 协 程 用 来 继续 执行 另 一 个 协 程 ( 带 
着 一 个 转换 值 ) 。 宏 coroutine 定义 一 个 这 样 的 协 程 过 程 ， 一 个 变量 名 作为 协 程 
的 初始 参数 ， 内 容 作 为 协 程 。 


(define-macro coroutine 
(lambda (x . body) 
‘(letrec ((+local-control-state (lambda (,x) ,@body)) 
(resume 

(lambda (c v) 

(calil ce 
(lambda (k) 

(set! +local-control-state k) 


(c v)))))) 
(lambda (v) 
(+local-control-state v))))) 


调用 这 个 宏 可 以 创建 一 个 协 程 (我 们 叫 为 A ) ， 这 个 协 程 可 以 有 一 个 参数 。 A 有 
一 个 内 部 变量 叫做 +local-control-state 来 保存 任意 时 刻 这 个 协 程 接 下 来 的 计 
算 。 当 调用 resume 时 一 也 就 是 调用 另 一 个 协 程 B 时 当前 协 程 会 更 新 它 

的 +local-control-state 变量 为 之 后 的 计算 ， 然 后 停止 ， 然 后 跳 到 恢复 了 的 协 
程 B ， 当 协 程 A 之 后 恢复 时 ， 它 的 计算 会 从 它 +local-control-state 变量 里 
存放 的 续 延 开始 。 





13.4.1 用 协 程 进行 树 匹 配 


用 协 程 会 进一步 简化 树 匹 配 的 操作 。 匹 配 过 程 被 编写 为 一 个 协 程 ， 该 协 程 依赖 另外 
两 个 协 程 提 供 各 自 的 叶 节 点 。 


(define make-matcher -coroutine 
(lambda (tree-cor-1 tree-cor-2) 
(coroutine dont-need-an-init-arg 
(let loop () 
(let ((leafi (resume tree-cor-1 'get-a-leaf)) 
(leaf2 (resume tree-cor-2 'get-a-leaf))) 
(if (eqv? leafi leaf2) 

(if (null? leaf1) #t (loop)) 
#f)))))) 


叶 生 成 器 协 程 会 记 住 把 它 的 节点 返回 给 谁 : 


(define make-leaf-gen-coroutine 
(lambda (tree matcher-cor) 
(coroutine dont-need-an-init-arg 
(let loop ((tree tree)) 
(cond ((null? tree) 'skip) 
((pair? tree) 
(loop (car tree)) 
(loop (cdr tree))) 
(else 
(resume matcher-cor tree)))) 
(resume matcher-cor '())))) 


现在 过 程 same-fringe? 可 以 这 样 写 : 


(define same-fringe? 
(lambda (tree1 tree2) 
(letrec ((tree-cor-1 
(make-leaf-gen-coroutine 
tree 
matcher-cor)) 
(tree-cor-2 
(make-leaf-gen-coroutine 
tree2 
matcher-cor) ) 
(matcher -cor 
(make-matcher -coroutine 
tree-cor-1 
tree-cor-2))) 
(matcher-cor 'start-ball-rolling)))) 


不 幸 的 是 Scheme 的 letrec 语句 如 果 想 解析 它 引 入 的 词法 变量 的 相互 递归 调用 ， 
必须 得 把 这 个 引用 包围 在 一 个 lambda 里 。 所 以 我 们 得 这 人 么 写 : 


(define same-fringe? 
(lambda (tree1 tree2) 
(letrec ((tree-cor-1 
(make-leaf-gen-coroutine 
treel 
(lambda (v) (matcher-cor v)))) 
(tree-cor-2 
(make-leaf-gen-coroutine 
tree2 
(lambda (v) (matcher-cor v)))) 
(matcher -cor 
(make-matcher -coroutine 
(lambda (v) (tree-cor-1 v)) 
(lambda (v) (tree-cor-2 v))))) 
(matcher-cor 'start-ball-rolling)))) 


注意 在 这 个 版 本 的 same-fringe 里 完全 没有 调用 call/cc 的 痕迹 。 
E coroutine 帮助 我 们 处 理 了 所 有 的 协 程 。 


[1]: 如 果 你 的 Scheme 没有 call/cc 这 个 缩写 ， 那 么 在 你 的 初始 化 代码 里 加 
A (define call/cc call-with-current-continuation) ， 这 样 可 以 减少 敲 击 
键盘 造成 的 手 部 劳损 : ) 


第 十 四 章 不 确定 性 


麦卡锡 的 非 确定 运算 符 amb 几乎 和 Lisp 一 样 十 老 ， 尽 管 现在 它 已 经 从 Lisp 中 消失 
T° amb 接受 一 个 或 多 个 表达 式 ， 并 在 它们 中 进行 一 次 “ 非 确定 ”( 或 者 叫 “ 模 糊 ”) 
选择 ， 这 个 选择 会 让 程序 趋向 于 有 意义 。 现 在 我 们 来 探索 一 下 Scheme 内 置 
的 amb 过 程 ， 该 过 程 会 对 模糊 的 选项 进行 深度 优先 选择 ， 并 使 用 Scheme 的 控制 操 
作 符 call/cc 来 回溯 其 他 的 选项 。 结 果 是 一 个 优雅 的 回溯 机 制 ， 该 机 制 可 用 于 在 
Scheme 中 对 问题 空间 进行 搜索 而 不 需要 另 一 种 扩展 了 的 语言 。 这 种 内 内 的 恢复 续 
延 的 机 制 可 以 用 来 实现 Prolog 风 格 的 逻辑 语言 ， 但 是 更 方便 (sparer) ， 因 为 这 个 
操作 符 更 像 是 Scheme 的 一 个 布尔 运算 符 ， 使 用 时 不 需要 特殊 的 上 下 文 
(context) ， 而 且 也 不 依赖 语言 学 的 一 些 基 础 元 素 如 逻辑 变量 和 归纳 法 
(unification) 。 


14.1 对 amb 的 描述 


最 早 的 Scheme 的 教程 SICP 对 amb 进行 了 易于 理解 的 描述 ， 同 时 还 给 出 了 许多 例 
子 。 说 得 直 白 一 些 ， amb 接受 零 个 或 更 多 表达 式 并 “不 确定 ”的 返回 其 中 “一 个 ”的 
值 。 因 此 : 


(amb 1 2) 


的 结果 可 能 为 1 或 2。 
不 带 参 数 调用 amb 则 不 会 有 返回 值 ， 而 且 应 该 会 出 错 。 因此: 


(amb) 
-->ERROR!!! amb tree exhausted 


(我 们 后 面 再 讨论 这 个 错误 信息 。) 
特别 的 ， 如 果 它 的 至 少 一 个 外 层 表达 式 收敛 (converges) 此 时 需要 amb 返回 一 个 
值 ， 那么 就 不 会 出 错 ， 因 此 : 


(amb 1 (amb)) 


mE: 
都 返回 1 © 
很 明显 ， amb 不 能 简单 的 等 同 于 它 的 第 一 个 子 表 达 式 ， 因 为 它 必须 返回 一 个 “ 非 错 


TR” NYA > 如果 有 这 种 可 能 的 话 。 然 而 ， 仅 仅 这 样 还 不 够 : 为 使 程序 收敛 的 选择 比 单 
纯 选择 amb 的 子 表 达 式 要 更 加 严格 。 amb 应 该 返回 让 "整个 "程序 收敛 的 值 。 在 这 


个 意义 上 ， amb 是 一 个 “ 神 "一 般 的 运算 符 。 


比如 : 


(amb #f #t) 


可 以 返回 #f Rat ， 但 是 在 程序 : 


(if (amb #f #t) 
1 
(amb ) ) 


中 ， 第 一 个 amb 表达 式 必 须 返 回 #t ， 如 果 返 回 #f ， 那 就 会 执行 else PR? 
这 会 导致 整个 程序 挂 掉 。 


14.2 用 Scheme 实现 amb 


在 我 们 的 amo 实现 中 ， 我 们 令 amb 的 子 表达 式 从 左 向 右 。 也 就 是 说 ， 我 们 先 选择 
第 一 个 子 表达 式 ， ~ 它 都 失败 ， 那 再 选择 第 二 个 ， 如 此 等 等 。 在 回溯 到 
前 一 个 amb 之 前 ， 程 序 控制 流 中 后 面 出 现 的 amb 也 被 搜索 以 查看 所 有 的 可 能 性 。 
换 和 名 话说， 我 们 对 amb 的 选择 树 进行 了 一 个 深度 优先 搜索 ， 当 我 们 碰 到 失败 的 情 
况 时 ， 我 们 就 回溯 到 最 近 的 节点 来 尝试 其 他 的 选择 。 (这 叫做 按时 间 顺 序 的 回 
if ) 


我 们 首先 定义 一 个 机 制 来 处 理 基 本 的 错误 的 续 延 


(define amb-fail '*) 


(define initialize-amb-fail 
(lambda () 
(set! amb-fail 
(lambda () 
(error "amb tree exhausted"))))) 


(initialize-amb-fail) 

当 amb 出 错时 ， 它 调用 绑 定 到 amb-fail 的 续 延 。 这 个 续 延 是 在 所 有 amb HH 
择 树 都 被 尝试 过 并 且 失 败 的 情况 下 调用 的 。 

我 们 把 amb 定义 为 一 个 宏 ， 接 受 住 意 数量 的 参数 。 


(define-macro amb 
(lambda alts... 
“(let ((+prev-amb-fail amb-fail) ) 
(call/cc 
(lambda (+sk) 


,@(map (lambda (alt) 
“(call/cc 
(lambda (+fk) 
(set! amb-fail 
(lambda () 

(set! amb-fail +prev-amb-fail) 
(+fk 'fail))) 

(+sk ,alt)))) 

alts...) 


(+prev-amb-fail)))))) 


对 amb 的 调用 被 首先 存储 到 +prev-amb-fail 中 ， amb-fail 的 值 是 此 时 的 入 
口 。 这 是 因为 amb-fail 变量 会 被 随 着 对 可 能 选项 的 遍历 被 设置 为 不 同 的 失败 续 
RE o 


我 们 然后 捕获 amb HATER +5k ， 这 样 当 求 出 一 个 “ 非 失败 ?的 值 时 ， 它 可 以 马 
上 退出 amb 。 


每 个 序列 中 的 选择 alt 都 被 尝试 (Scheme PIA begin 序列 ) ° 


首先 ， 我 们 捕获 当前 续 延 +fk ， 把 它 包 在 一 个 过 程 中 并 把 该 过 程 赋 

给 amb-fail 。 接 着 替换 物 被 求 值 (+sk alt) 。 如 果 alt 的 求 值 没有 失败 ， 那 
么 把 它 的 返回 值 作 为 参数 给 续 延 fsk ， 这 样 马 上 就 退出 了 amb 的 调用 。 如 

RK alt 失败 了 ， 就 调用 amb-fail ° amb-fail 做 的 第 一 件 事 是 重新 设 

置 amb-fail 为 之 前 入 口 时 的 值 。 它 接 下 来 调用 失败 续 延 ffk ， 这 个 续 延 会 尝试 
下 个 可 能 的 选择 〈 如 果 存 在 的 话 ) © 


如 果 所 有 选择 都 失败 了 ， amb 入 口 的 amb-fail (我 们 之 前 把 它 存放 
在 +prev-amb-fail 中 ) 会 被 调用 。 


14.3 在 Scheme 中 使 用 amb 
选择 一 个 1 到 10 之 间 的 数字 ， 我 们 可 以 这 样 写 : 


(amb 12345678 9 10) 


1 (根据 我 们 之 前 实现 的 策略 ) ， 但 这 个 与 它 的 上 下 文 有 


毫 无 疑问 这 个 程序 会 返回 
能 返回 给 定 的 任何 数字 。 


关 ， 它 完全 可 能 


at #2 number-between 是 一 种 生成 给 定 lo 到 hi (包括 lo 和 hi EA) ZA 
数字 的 抽象 方法 : 


(define number-between 
(lambda (lo hi) 
(let loop ((i 1lo)) 
(if (> i hi) (amb) 
(amb i (loop (+ i 1))))))) 


因此 (number-between 1 6) 会 首先 生成 1。 如 果 失 败 了 ， 继 续 循 环 ， 生 成 2。 如 
果 还 是 失败 ， 我 们 就 得 到 3， 这 样 一 直到 6。6 以 后 ， loop 以 参数 7 被 调用 ， 这 上 比 6 
要 大 ， 调 用 (amb) 。 这 会 产生 一 个 最 终 的 错误 (回忆 之 前 我 们 所 说 的 ， 单 独 

的 (amb) 肯定 会 出 现 错误 ) 这 时 ， 这 个 包含 (number-between 1 6) 的 程序 会 
按时 间 顺 序 依次 回 漳 之 前 的 amb 调用 ， 用 另 一 种 方式 来 满足 这 个 调用 。 


(amb) 一 定 失败 的 特点 可 以 用 于 程序 的 断言 中 。 


(define assert 
(lambda (pred) 
(if (not pred) (amb)))) 


调用 (assert pred) 确保 了 pred AH? GU EAL HATA amb 选择 点 失败 。 


下 面 的 程序 用 assert 来 生成 一 个 小 于 等 于 其 参数 hi 的 素数 : 


(define gen-prime 
(lambda (hi) 
(let ((i (number-between 2 hi))) 
(assert (prime? i)) 


i))) 
这 看 起 来 也 太 简 单 了 ， 只 是 当 不 论 以 任何 数字 (如 20) 调用 这 个 过 程 ， 它 永远 会 给 
出 第 一 个 解 : 2。 
我 们 当然 希望 得 到 所 有 的 解 ， 而 不 是 只 有 第 一 个 。 这 种 情况 下 ， 我 们 会 希望 得 到 所 


有 上 比 20 小 的 素数 。 一 种 方法 是 在 该 过 程 输出 了 第 一 个 解 后 ， 显 式 地 调用 失败 续 延 。 
因此 : 


(amb ) 
三 之 要 总 


这 样 又 会 产生 另 一 个 失败 续 延 ， 我 们 还 可 以 继续 调用 它 来 得 到 另 一 个 解 。 


(amb ) 
= 7 5) 


这 种 方式 的 问题 是 程序 首先 在 Scheme 的 命令 提示 符 后 面 被 调用 ， 并 且 在 Scheme 的 
命令 行 上 调用 (amb) 也 可 以 得 到 成 功 的 解 。 实 际 上 ， 我 们 正在 使 用 不 同 的 程序 
(我 们 无 法 预计 到 底 有 多 少 ! ) ， 并 把 信息 从 前 一 个 传递 到 下 一 个 。 相 反 的 ， 我 们 
硕 望 可 以 在 任意 上 下 文中 调用 某 种 形式 然后 返回 这 些 解 。 为 此 我 们 定义 

了 bag-of 宏 ， 该 宏 返 回 其 参数 的 所 有 成 功 实例 。 (如 果 参 数 永远 不 能 成 功 ， 就 返 
回 空 列表 ) 因此 我 们 可 以 这 样 写 : 


(bag-of 
(gen-prime 20)) 


~a xz 


这 样 会 返回 : 


(2 8505 7 le le 17.19) 
宏 bag-of 定义 如 下 : 


(define-macro bag-of 
(lambda (e) 
“(let ((+prev-amb-fail amb-fail) 
(+results '())) 
CO “Ceall7ec 
(lambda (+k) 
(set! amb-fail (lambda () (+k #f))) 
(let ((+v ,e)) 

(set! +tresults (cons +v +results) ) 


(+k #t)))) 
(amb-fail)) 
(set! amb-fail +prev-amb-fail) 
(reverse! +results)))) 


bag-of 首先 保存 它 的 入 口 到 amb-fail 。 它 重新 定义 了 amb-fail 为 一 个 

在 if 测试 中 创建 的 本 地 续 延 。 在 这 个 测试 中 ， bag-of 的 参数 e 被 求 值 ， 如 果 
成 功 ， 它 的 结果 被 收集 到 一 个 叫 +results 的 列表 ， 并 且 以 # 为 参数 调用 本 地 
续 延 。 这 会 让 if 测试 成 功 ， 导 致 e 会 在 它 的 下 一 个 回 漳 点 被 重新 尝试 。 e 的 其 
他 结果 也 通过 这 种 方法 获得 并 放 进 +results 里 。 


最 后 ， 当 e 失败 时 ， 它 会 调用 基本 的 amb-fail > PPA #f 为 参数 调用 本 地 续 
延 。 这 就 把 控制 从 if 中 转移 出 来 。 我 们 把 amb-fail 恢复 到 它 上 一 个 入 口 的 

值 ， 并 返回 +results 。 (过 程 reverse! 只 是 用 来 把 结果 以 他 们 生成 的 顺序 展 
现 出 来 ) 


14.4 Z tie A 


在 解决 还 辑 谜 题 时 ， 这 种 深度 优先 搜索 与 回溯 相 结合 的 方法 的 强大 才能 明显 体现 出 
来 。 这 些 问 题 用 过 程式 的 方式 非常 难以 解决 ， 但 是 可 以 用 amb 简洁 、 直 截 了 当 的 
解决 ， 而 且 不 会 减少 解决 问题 的 魅力 。 


14.4.1 Kalotanié <4 


Kalotan 症 一 个 奇 特 的 部 落 。 这 个 部 落 里 所 有 男人 都 总 是 讲 丨 话 。 所 有 的 女人 从 来 不 
会 连续 2 句 讲 卜 话 ， 也 不 会 连续 2 句 都 讲 假 话 。 


一 个 哲学 家 (Worf) 开始 研究 这 些 人 。Worf 不 懂 Kalotan 的 语言 。 一 天 他 碰 到 一 对 
Kalotan 夫 妻 和 他 们 的 孩子 Kibi。Worf 问 Kibi :“ 你 是 男孩 吗 ? ”Kibi 用 Kalotan 语 回 
答 ，Worf 没 听 懂 。 


Wrof 又 问 孩 子 的 父母 (他 们 都 会 说 英语 ) ， 其 中 一 个 人 说 : “Kibi 说 : ' 我 是 个 男 
孩 。”， 另 外 一 个 人 说 :“Kibi 是 个 女孩 ，Kibi 撒 议 了 ”。 

请 问 这 三 个 Kalotan 人 的 性 别 。 

解决 的 方法 包括 引进 一 堆 变 量 ， 给 它们 赋 上 各 种 可 能 的 值 ， 把 所 有 情况 列举 为 一 系 
列 assert 表达 式 。 


变量 : parenti , parent2 , kibi 分 别 是 父母 (按照 说 话 的 顺序 ) 和 Kibi 的 性 
别 。 kibi-self-desc 是 Kibi 用 Kalotan 语 说 的 自己 的 性 别 。 kibi-lied? 表示 
Kibize Sitti o 


(define solve-kalotan-puzzle 
(lambda () 
(let ((parenti (amb 'm 'f)) 
(parent2 (amb 'm 'f)) 
(kibi (amb 'm 'f)) 
(kibi-self-desc (amb 'm 'f)) 
(kibi-lied? (amb #t #f))) 
(assert 
(distinct? (list parent1 parent2))) 
(assert 
(if (eqv? kibi 'm) 
(not kibi-lied?))) 
(assert 
(if kibi-lied? 
(xor 
(and (eqv? kibi-self-desc 'm) 
(eqv? kibi 'f)) 
(and (eqv? kibi-self-desc 'f) 
(eqv? kibi 'm))))) 
(assert 
(if (not kibi-lied?) 
(xor 
(and (eqv? kibi-self-desc 'm) 
(eqv? kibi 'm)) 
(and (eqv? kibi-self-desc 'f) 
(eqv? kibi 'f))))) 


(assert 

(if (eqv? parenti 'm) 
(and 
(eqv? kibi-self-desc 'm) 
(xor 


(and (eqv? kibi 'f) 
(eqv? kibi-lied? #f)) 
(and (eqv? kibi 'm) 
(eqv? kibi-lied? #t)))))) 
(assert 
(if (eqv? parenti 'f) 
(and 
(eqv? kibi 'f) 
(eqv? kibi-lied? #t)))) 
(list parenti parent2 kibi)))) 


对 于 辅助 过 程 的 一 些 说 明 : distinct? 过 程 返 回 true ， 如 果 其 参数 列表 里 所 有 
参数 都 是 不 同 的 ， 否 则 返回 false 。 过 程 xor 只 有 当 它 的 两 个 参数 一 个 站 一 个 
假 时 才 返 回 true > GIAE false 。 


输入 (solve-kalotan-puzzle) 会 解决 这 个 谜 题 。 


14.4.2 地 图 着 色 


人 们 很 早 以 前 就 知道 (但 知道 1976 年 才 证 明 ) 至 少 用 四 种 颜色 就 可 以 给 地 球 的 地 图 
着 色 ， 也 就 是 说 给 所 有 国家 着 色 并 保证 相 邻 的 国家 的 颜色 是 不 同 的 。 为 了 验证 确实 
是 这 样 的 ， 我 们 编写 下 面 的 程序 ， 并 指出 非 确定 性 编程 是 如 何 为 之 提供 便利 的 。 


下 面 的 这 段 程序 解决 了 西欧 的 地 图 着 色 问 题 。 这 个 问题 和 其 用 Prolog 语 言 的 解法 在 
«the Art of Prolog》 中 给 出 。《〈 如 果 你 能 比较 我 们 与 那 本 书 里 的 解法 应 该 很 有 益 
2) 


at #2 choose-color 非 确定 的 返回 四 种 颜色 之 一 : 


(define choose-color 
(lambda () 
(amb 'red 'yellow 'blue 'white))) 


在 我 们 的 解法 中 ， 我 们 为 每 个 国家 建立 了 一 个 数据 结构 。 该 结构 是 一 个 三 元 素 的 列 
表 : 第 一 个 元 素 表 示 国 家 名 ， 第 二 个 元 素 是 颜色 ， 第 三 个 元 素 是 它 相 邻 国家 的 颜 
色 。 注 意 我 们 用 国家 的 首 字母 作为 颜色 的 变量 ， 即 比利时 (Belgium) 的 列表 

是 (list 'belgium b (list f h 1 g)) ， 因 为 一 一 按照 这 个 问题 列表 一 一 比 利 
时 的 邻 国 是 法 国 (France)， 荷 兰 (Holland)， 卢 森 堡 (Luxembourg)， 人 德国 
(Germany) ° 


一 旦 我 们 给 每 个 国家 创建 了 列表 ， 我 们 仅仅 需要 陈述 他 们 应 该 满足 的 条 件 ， 即 每 
个 国家 不 能 与 邻 国有 相同 的 颜色 。 换 名 话说， 对 每 个 国家 的 列表 ， 第 二 个 元 素 的 值 
应 该 不 在 第 三 个 元 素 (列表 ) 中 。 


(define color-europe 
(lambda () 


;choose colors for each country 

(let ((p (choose-color)) ;Portugal 
(e (choose-color)) ;Spain 
(f (choose-color)) ;France 
(b (choose-color)) ;Belgium 
(h (choose-color)) ;Holland 
(g (choose-color)) ;Germany 
(1 (choose-color)) ;Luxemb 
(i (choose-color)) ;Italy 
(s (choose-color)) ;Switz 
(a (choose-color)) ;Austria 


;construct the adjacency list for 
;each country: the ist element is 
;the name of the country; the 2nd 
element is its color; the 3rd 
:element is the list of its 
;neighbors' colors 
(let ((portugal 

(list 'portugal p 

(list e))) 


C$Crhama 72 
UIICITIC o 


(spain 
(list 'spain e 
(list f p))) 
(france 
(list 'france f 
(ast-¢ is bg 19) 
(belgium 
(list "belgium b 
(list f h 1 g))) 
(holland 
(list 'holland h 
(list b g))) 
(germany 
(list 'germany g 
(fist, f aes Habel 
(luxembourg 
(list 'luxembourg 1 
(list f b g))) 
(italy 
(TSE Tikaly 2 
(list fa s))) 
(switzerland 
(list 'switzerland s 
(list f a1 a g))) 
(austria 
(list “austria a 
(list is g)))) 
(let ((countries 
(list portugal spain 
france belgium 
holland germany 
luxembourg 
italy switzerland 
austria))) 


;the color of a country 
;Should not be the color of 
;any of its neighbors 
(for-each 
(lambda (c) 

(assert 

(not (memq (cadr c) 

(caddr c))))) 

countries) 


output the color 

assignment 

(for-each 

(lambda (c) 
(display (car c)) 
(display " ") 
(display (cadr c)) 
(newline)) 


countries)))))) 


输入 (color-europe) 来 得 到 一 个 颜色 -国家 对 应 表 。 


1. SICP 把 这 个 过 程 命名 为 require 。 我 们 使 用 assert 标识 符 是 为 了 避免 与 
用 来 从 其 他 文件 中 加 载 代码 的 require 标识 符 混淆 。 


第 十 五 章 IE 


引擎 表示 服从 时 间 抢占 的 运算 过 程 。 换 句 话 说 ， 一 个 引擎 下 面 的 运算 过 程 是 普通 的 
程序 作为 定时 器 可 抢占 的 进程 。 


一 个 引擎 用 三 个 参数 来 调用 : 


1. 分 配 时 间 片 (运行 时 间 单 元 ) 的 数目 
2. 成 功 过 程 
3. 失败 过 程 


如 果 引 擎 的 计算 在 分 配 的 时 间 片 内 完成 了 ， 那 么 就 把 计算 的 结果 作为 参数 来 调用 成 
功 过 程 ， 如 果 没 有 计算 完成 ， 那 么 把 未 计算 完 的 部 分 作为 参数 来 调用 失败 过 程 。 


比如 ， 考 虑 一 个 引擎 ， 其 下 的 运算 是 一 个 循环 ， 该 循环 打印 非 负 整数 的 序列 。 该 引 
擎 用 下 面 的 make-engine 过 程 (后 面 会 定义 该 过 程 ) 创建 ， make-engine 接受 
一 个 程序 〈 即 该 引擎 下 面 的 计算 过 程 ) 为 参数 ， 并 返回 对 应 的 引擎 。 


(define printn-engine 
(make-engine 
(lambda () 

(let loop ((i 0)) 
(display i) 
(display " ") 
(loop (+ i 1)))))) 


下 面 调用 pritn-engine 


(define *more* #f) 
(printn-engine 50 list (lambda (ne) (set! *more* ne))) 
=> 0123456789 


也 就 是 循环 打印 到 某 个 特定 的 数 (这 里 是 9 ) 然后 就 失败 (fail) 了 ， 因 为 时 钟 中 断 
了 。 然 而 ， 我 们 定义 的 失败 过 程 把 fail 掉 的 引擎 赋值 给 了 全 局 变量 *more* o RA 
我 们 就 可 以 从 上 个 引擎 中 断 的 地 方 恢 复 : 


(*more* 50 list (lambda (ne) (set! *more* ne))) 
=> 10 11 12 13 14 15 16 17 18 19 


我 们 现在 来 构建 引擎 ， 使 用 call/cc 来 捕获 一 个 失败 引 敬 未 完成 的 计算 。 首 先 我 
们 会 构造 一 个 flat 引 擎 ， 也 就 是 说 该 引擎 的 计算 中 不 能 运行 其 他 引擎 。 稍 后 我 们 会 让 
代码 更 通用 ， 实 现 nestable 引 擎 ， 这 样 的 引擎 可 以 调用 其 他 引擎 。 但 是 不 管 那 种 引 
蓉 ， 我 们 都 需要 一 个 定时 的 东西 ， 时 钟 (clock) 。 


15.1 时 钟 


我 们 的 引擎 假设 有 一 个 全 局 的 时 钟 或 可 中 断 的 定时 器 来 记录 程序 运行 的 时 间 片 。 我 
们 假设 下 面 的 时 钟 接口 一 你 通常 应 该 很 容易 把 Scheme 提供 的 时 钟 接 口 (如 果 有 
的 话 ) 打包 成 下 面 这 种 类 型 。 (附录 D 用 Scheme 的 Guile 方 言 定 义 了 一 个 时 钟 ) 


我 们 的 clock 过 程 的 内 部 状态 包括 以 下 两 项 : 

1. 剩余 的 时 间 片 的 数目 ， 以 及 

2. 一 个 中 断 处 理 器 (handler)， 当 时 钟 的 时 间 片 用 完了 的 时 候 被 调用 。 
clock 允许 下 面 的 操作 : 

1. (clock 'set-handler h) 设置 中 断 处 理 器 为 h ° 

2. (clock 'set n) 把 时 钟 的 剩余 时 间 片 重 置 为 n ， 返 回 之 前 的 值 。 


n 的 取 值 范围 是 所 有 非 负 整数 以 及 一 个 叫 *infinity* 的 原子 。 一 个 时 钟 如 果 
有 *infinity* 的 时 间 片 永远 不 会 终止 ， 所 以 也 用 不 着 设置 中 断 处 理 器 。 这 样 的 
时 钟 总 是 “静止 的 "或 “停止 的 ” (定时 器 的 工作 就 是 : 减 到 0 并 中 断 ， 而 这 样 的 时 钟 永 
远 不 会 减 到 0 并 中 断 ， 所 以 处 于 * 非 工作 "状态 ) 。 让 一 个 时 钟 停止 只 要 把 时 间 片 设 
为 *infinity* PPT ° 


时 钟 的 处 理 器 被 设置 为 一 个 程序 ， 比 如 : 
(clock 'set-handler 


(lambda () 
(error "Say goodnight, cat!"))) 


(clock "set 9) 


这 样 9 个 时 间 片 过 去 后 会 产生 一 个 错误 ， 并 且 显 示 的 错误 信息 
是 "Say goodnight, cat!" 


15.2 flat 引 # 


我 们 将 首先 设置 时 钟 的 中 断 处 理 器 。 注 意 这 个 处 理 器 只 有 在 “工作 ”状态 的 时 钟 用 完 
时 间 片 后 才 会 被 调用 。 这 只 有 引擎 计算 失败 时 才 发 生 ， 因 为 只 有 引擎 设置 时 钟 。 


处 理 器 捕获 当前 的 续 延 ， 也 就 是 当前 失败 引擎 的 剩余 计算 部 分 。 这 个 续 延 被 保存 到 
全 局 的 *engine-escape* 变量 中 。 该 变量 存放 当前 引擎 的 续 延 。 因 此 时 钟 处 理 器 
捕获 失败 引擎 的 剩余 部 分 并 把 它 发 送 到 引擎 代码 的 出 口 。 这 样 所 需 的 失败 处 理 才 能 
执行 。 


(define *engine-escape* #f) 
(define *engine-entrance* #f) 


(clock 'set-handler 
(lambda () 
(call/ce *engine-escape*))) 


让 我 们 来 看 一 下 引擎 代码 的 内 部 。 如 上 所 述 ， make-engine 接受 一 个 程序 并 为 之 
构造 一 个 引擎 : 


(define make-engine 
(lambda (th) 
(lambda (ticks success failure) 
(let* ((ticks-left 0) 
(engine-succeeded? #f) 
(result 
(call/cc 
(lambda (k) 
(set! *engine-escape* k) 
(let ((result 
(call/cc 
(lambda (k) 
(set! *engine-entrance* k) 
(clock 'set ticks) 
(let ((v (th))) 
(*engine-entrance* v)))))) 
(set! ticks-left (clock ‘set *infinity*)) 
(set! engine-succeeded? #t) 
result))))) 
(if engine-succeeded? 
(success result ticks-left) 
(failure 
(make-engine 
(lambda () 
(result 'resume))))))))) 


首先 我 们 引入 变量 ticks-left 和 engine-succeeded? 。 前 者 保存 引 营 的 程序 
应 该 在 多 少时 间 片 内 完成 o 后 者 是 一 个 标志 2 表示 引 a ce GMD e 


我 们 接 下 来 在 两 层 对 call/cc 的 调用 中 执行 引擎 的 程序 。 第 一 个 call/cc 捕获 
的 续 延 被 失败 引擎 用 来 退出 其 引擎 的 计算 。 这 个 续 延 被 保存 到 全 局 

的 *engine-escape* 变量 中 。 第 二 个 call/cc 捕获 一 个 内 部 的 续 延 ， 该 续 延 会 
被 th 的 返回 值 使 用 ， 如 果 th 完成 了 的 话 。 这 个 续 延 保存 在 全 局 

的 *engine-entrance* 变量 中 。 


查看 上 面 的 代码 ， 我 们 能 发 现在 捕获 续 
延 *engine-escape* 和 *engine-entrance* 后 ， 我 们 设置 时 钟 的 时 间 片 为 允许 
允许 的 时 间 并 运行 th 。 如 果 th 成 功 了 ， 其 返回 值 v 被 发 送 到 续 


x£ *engine-escape* ， 然 后 时 钟 就 停止 了 ， 剩 下 的 时 间 片 的 数量 就 确定 了 ， 并 且 
标记 engine-succeeded? 被 设置 为 趴 。 我 们 现在 略 过 (?) *engine-escape* 续 
延 ， 并 执行 最 后 一 段 选择 语 铝 : 由 于 我 们 知道 引 警 成功 了 ， 我 们 以 执行 结果 和 剩余 
的 时 间 片 为 参数 调用 success 过 程 。 


如 果 程 序 th 没 能 在 制定 时 间 完 成 ， 就 会 被 中 断 。 这 会 调用 时 钟 的 中 断 处 理 器 ， 来 
捕获 当前 失败 程序 的 续 延 ， 并 把 它 传 给 *engine-escape* 变量 。 这 样 就 

把 result 变量 设置 为 失败 任务 的 续 延 ， 我 们 现在 执行 最 后 一 个 if 语句 ， 由 

于 engine-succeeded? Æ false ， 我 们 以 result 构造 一 个 新 引擎 并 作为 参数 
调用 failure 过 程 。 


注意 当 一 个 失败 的 引擎 被 移 除 时 ，it will traverse the control path charted by the 
first run of the original engine. 尽 管 如 此 ， 因 为 我 们 总 是 显 式 的 使 用 保存 

在 *engine-entrance* 和 *engine-escape* 变量 中 的 续 延 ， 而 且 我 们 总 是 在 开 
局 引擎 计算 前 重新 设置 它们 ， 我 们 能 保证 跳 转 总 是 会 到 当前 执行 的 引擎 代码 。 


15.3 X &#(nestable) 49 4] # 
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为 了 跑 一 个 新 引擎 〈 子 引擎 ) ， 我 们 需要 停止 当前 引擎 (RIE) 。 然 后 需要 给 子 
引擎 分 配 适 当 的 时 间 。 这 可 不 是 直接 在 程序 代码 里 设置 那样 ， 因 为 给 予 引擎 分 配 比 
父 引 擎 剩 下 的 时 间 片 更 多 的 时 间 片 是 不 对 的 。 在 子 引擎 跑 完 后 我 们 还 得 更 新 父 引 擎 
剩余 的 时 间 片 。 如 果子 引擎 在 给 定时 间 内 跑 完 ， 所 有 它 剩 下 的 时 间 片 都 还 给 父 引 
莹 。 如 果子 引擎 要 求 的 时 间 片 被 拒绝 (因为 父 引 擎 的 剩余 时 间 片 都 无 法 满足 ) >» ap 
么 如 果子 引擎 失败 了 ， 父 引擎 也 会 失败 ， 但 是 必须 记得 在 重启 父 引 擎 时 也 重启 子 引 
擎 ， 其 时 间 片 仍然 是 之 前 需要 的 那些 。 


我 们 需要 用 fluid-let 来 声明 全 局 

的 *engine-escape* 和 *engine-entrance* 变量 ， 因 为 每 个 引擎 都 必须 有 它 自 
己 的 这 两 个 做 控制 用 的 续 延 。 当 引擎 退出 时 (不论 是 成 功 还 是 失 

Wm) > fluid-let 会 保证 其 外 层 引 擎 会 接管 这 个 控制 (Sentinel) 。 


考虑 到 以 上 这 些 ， 可 交 晤 引擎 的 代码 应 该 像 下 面 这 样 : 


(define make-engine 
(lambda (th) 
(lambda (ticks s f) 
(let* ((parent-ticks 
(clock 'set *infinity*)) 
;A child can't have more ticks than its parent's 
;remaining ticks 
(child-available-ticks 
(clock-min parent-ticks ticks)) 


Anechas iealle 
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ks must be counted against the parent 
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(parent-ticks-left 
(clock-minus parent-ticks child-available-ticks) ) 


;If child was promised more ticks than parent could 
;afford, remember how much it was short-changed by 
(child-ticks-left 

(clock-minus ticks child-available-ticks) ) 


:Used below to store ticks left in clock 
;if child completes in time 
(ticks-left 0) 


(engine-succeeded? #f) 


(result 
(fluid-let ((*engine-escape* #f) 
(*engine-entrance* #f)) 
(call/cc 
(lambda (k) 
(set! *engine-escape* k) 
(let ((result 
(call/cc 
(lambda (k) 
(set! *engine-entrance* k) 
(clock 'set child-available-ticks) 


(let ((v (th))) 


(*engine-entrance* v)))))) 
(set! ticks-left 
(let ((n (clock 'set *infinity*))) 
(if (eqv? n *infinity*) © n))) 
(set! engine-succeeded? #t) 
result)))))) 


Parent can reclaim ticks that child didn't need 
(set! parent-ticks-left 
(clock-plus parent-ticks-left ticks-left) ) 


‘This is the true ticks that child has left -- 
;we include the ticks it was short-changed by 
(set! ticks-left 

(clock-plus child-ticks-left ticks-left)) 


;Restart parent with its remaining ticks 
(clock 'set parent-ticks-left) 
;The rest is now parent computation 


(cond 
‘Child finished in time -- celebrate its success 
(engine-succeeded? (s result ticks-left)) 


;Child failed because it ran out of promised time -- 
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;call failure procedure 
((= ticks-left 0) 
(f (make-engine (lambda () (result 'resume))))) 


;Child failed because parent didn't have enough time, 

;ie, parent failed too. If so, when parent is 

;resumed, its first order of duty is to resume the 

‘child with its fair amount of ticks 

(else 

((make-engine (lambda () (result 'resume))) 
ticks-left s f))))))) 


注意 我 们 使 用 算术 运算 符 clock-min ， clock-minus 和 clock-plus 替代 

J min ，- 和 + 。 这 是 因为 时 钟 算术 的 值 除 了 整数 之 外 还 包含 *infinity* ° 
有 些 Scheme 的 方言 在 它们 的 算术 运算 中 提供 了 *infinity* 的 值 一 一 如 果 这 样 的 
话 ， 你 就 可 以 用 这 些 通用 的 算术 运算 符 了 。 如 果 没 有 的 话 ， 定 义 这 几 个 增强 运算 符 
也 是 很 简单 的 事情 。 





1. 在 Guile 中 ， 你 可 以 (define *infinity* (/ 1 0)) ° 


第 十 六 章 命令 行 脚本 


如 果 能 把 我 们 想 做 的 东西 写 到 一 个 文件 或 脚本 中 ， 并 且 像 执行 其 他 操作 系统 命令 一 
样 执行 的 话 通常 会 非常 方便 。 一 些 重量 级 的 程序 通常 以 脚本 的 形式 提供 接口 ， 用 户 
可 以 经 常 编写 他 们 自己 的 脚本 或 修改 已 有 的 脚本 来 满足 特定 的 需求 。 毫 无 疑问 大 部 
分 的 编程 任务 都 以 脚本 的 形式 来 执行 。 对 于 很 多 用 户 而 言 ， 这 是 他 们 唯一 会 做 的 编 
程 了 。 


Unix 或 DOS 等 操作 系统 (以 及 Windows 系 统 提 供 的 命令 行 接 口 ) 都 提供 了 脚本 的 机 
制 。 但 是 这 些 脚 本 语言 都 相当 的 不 成 熟 。 通 常 一 个 脚本 就 是 一 串 可 以 在 命令 行 上 输 
入 的 命令 。 这 样 用 户 可 以 免 于 每 次 用 这 些 命令 (或 相似 的 命令 ) 都 重新 输入 。 某 些 
脚本 语言 包含 一 些 简 单 的 编程 功能 如 条 件 语 句 和 循环 ， 但 这 就 是 所 有 的 了 。 这 对 于 
简单 的 程序 是 足够 了 。 但 是 当 脚 本 越 来 越 大 ， 要 求 越 来 越 高 大 部 分 情况 都 是 如 
此 一 一 人 们 通常 会 觉得 需要 一 些 功能 全 面 的 编程 语言 。 和 包含 足够 操作 系统 接口 的 
Scheme 语言 让 脚本 编写 变 得 简单 而 可 维护 。 


这 一 节 会 描述 如 何在 Scheme 中 编写 脚本 。 由 于 Scheme 有 大 多 方言 一 节 太 多 实现 不 
同 的 实现 方法 ， 我 们 专注 于 使 用 MzScheme 方 言 ， 附 录 人 A 中 讲解 了 如 果 用 其 他 方言 
需要 有 哪些 修改 。 我 们 现在 也 专门 讲解 Unix 操 作 系统 。 附 录 B 里 讨论 了 DOS 系 统 需 
要 注意 的 问题 。 





16.1 和 再 来 一 次 Hello，World ! 


我 们 现在 来 创建 一 个 Scheme 脚本 来 对 世界 说 hello。 这 对 于 通常 的 脚本 语言 也 算 不 
上 什么 难事 。 然 而 ， 为 了 后 期 上 道 编 写 更 复杂 的 脚本 ， 我 们 必须 理解 如 何 用 
Scheme 来 编写 这 个 HelloWorld。 首 先 ， 一 个 通常 的 Unix 版 的 HelloWorld 是 一 个 文 
件 ， 里 面 的 内 容 如 下 : 


echo Hello, World! 


这 里 使 用 了 命令 echo ， 这 个 脚本 可 以 被 命名 为 hello ， 使 用 下 面 的 命令 使 之 可 
执行 : 


chmod +x hello 
然后 把 它 放 在 PATH 环境 变量 中 的 任意 一 个 目录 下 。 然 后 任何 时 候 从 命令 行 输入 
hello 


就 会 输出 上 面 的 问候 。 


Scheme 的 hello 脚 本 也 会 用 Scheme 产生 相同 的 输出 ( 见 下 面 的 脚本 ) ， 但 是 我 们 
得 做 点 什么 ， 让 操作 系统 知道 它 应 该 用 Scheme 来 分 析 文件 中 的 命令 ， 而 不 是 用 它 
默认 的 脚本 语言 。Scheme 的 脚本 文件 ， 有 命名 为 hello， 内 容 如 下 : 


":"; exec mzscheme -r $0 "$@" 


(display "Hello, World!") 
(newline) ) 


除了 第 一 行 以 外 都 是 Scheme 代码 。 然 而 第 一 行 就 是 把 这 些 代码 指定 为 “脚本 "的 神奇 
之 处 。 当 用 户 在 Unix 命 令 行 上 输入 hello 的 时 候 ，Unix 会 像 读 取 一 般 的 脚本 一 样 
来 读 取 这 个 文件 。 首 先 读 到 一 个 "2" ， 这 是 一 个 shell 的 空 语句 。 后 面 的 ;是 分 隔 
符 。 下 一 个 命令 是 exec 。 exec 告诉 Unix 放 弃 当 前 脚本 的 执行 并 转 而 执 

行 mzscheme -r $0 "$@" ， 这 里 参数 $0 会 被 蔡 换 为 当前 文件 的 名 字 ， 参 

数 $@ 会 被 蔡 换 为 用 户 运行 该 脚本 时 附加 的 参数 。 (在 本 例 中 没有 参数 ) 


我 们 现在 事实 上 以 及 把 hello 命令 变换 为 另 一 个 不 同 的 命令 ， 即 : 


mzscheme -r /whereveritis/hello 


其 中 /whereveritis/hello 是 hello 文件 的 路 径 名 。 


mzscheme 命 令 调 用 了 MzScheme 的 可 执行 文件 。 -r 选项 告诉 它 把 紧 跟 在 该 选项 
后 面 的 参数 作为 一 个 Scheme 文件 来 加 载 ， 在 这 之 前 还 要 把 所 有 其 他 参数 (如 果 有 
的 话 ) 放 进 一 个 叫 argv 的 向 量 中 《在 本 例 中 ， argv 是 一 个 空 向 量 ) 。 


此 ，Scheme 脚 本 会 作为 一 个 Scheme 文件 来 执行 ， 而 且 该 文件 中 的 Scheme 代码 
还 可 以 通过 argv 访问 到 所 有 该 脚本 原先 的 参数 。 


现在 ，Scheme 不 得 不 来 处 理 这 个 脚本 中 的 第 一 行 了 。 正 如 我 们 所 看 到 的 ， 这 一 行 
可 是 一 个 精心 构造 的 Shell 脚 本 。":" 是 一 个 Scheme 中 自 求 值 的 字符 串 所 以 没有 
关系 。 ; 则 开局 了 Scheme 的 注释 ， 因 此 后 面 的 exec 等 代码 都 被 安全 的 忽略 掉 了 。 
文件 剩 下 的 部 分 都 是 Scheme 代码 ， 被 按 顺序 求 值 ， 所 有 的 求 值 完成 后 ，Scheme 就 
退出 了 。 


总 之 ， 在 命令 提示 符 后 面 输入 hello 会 产生 : 


Hello, World! 


16.2 带 参数 的 脚本 


Scheme 脚本 使 用 argv 变 量 来 引用 它 的 参数 。 人 例如， 下面 的 脚本 输出 其 所 有 参数 ， 
gii: 


":"; exec mzscheme -r $0 "$@" 
;Put in argv-count the number of arguments supplied 
(define argv-count (vector-length argv)) 
(let loop ((i 0)) 
(unless (>= i argv-count) 
(display (vector-ref argv i)) 


(newline) 
(loop (+ i 1)))) 


我 们 把 这 个 脚本 命名 为 echoall 。 调 用 echoall 1 2 3 会 显示 : 


N 


注意 脚本 名 称 不 包括 在 参数 向 量 中 。 


16.3 例子 


我 们 现在 来 解决 一 些 更 大 的 问题 。 我 们 需要 在 两 台电 脑 之 间 传 输 文件 ， 而 唯一 的 方 
式 是 使 用 一 张 3.6 英 寸 的 软盘 作为 媒介 。 我 们 需要 一 个 split4floppy 的 脚本 来 把 
大 于 1.44MB 的 文件 分 割 为 软盘 能 装 下 的 小 块 。 脚 本 split4floppy 如 下 : 


":";exec mzscheme -r $0 "$@" 


;floppy-size = number of bytes that will comfortably fit ona 
; 3.5 floppy 


(define floppy-size 1440000) 


;split splits the bigfile f into the smaller, floppy-sized 
;subfiles, viz, subfile-prefix.1, subfile-prefix.2, etc. 


(define split 
(lambda (f subfile-prefix) 
(call-with-input-file f 
(lambda (i) 
(let loop ((n 1)) 
(if (copy-to-floppy-sized-subfile i subfile-prefix n) 
(loop (+ n 1)))))))) 


;copy-to-floppy-sized-subfile copies the next 1.44 million 
;bytes (if there are less than that many bytes left, it 
;copies all of them) from the big file to the nth 
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;subfile. Returns true if there are bytes left over, 
otherwise returns false. 


(define copy-to-floppy-sized-subfile 
(lambda (i subfile-prefix n) 
(let ((nth-subfile (string-append subfile-prefix "." 
(number->string n)))) 
(if (file-exists? nth-subfile) (delete-file nth-subfile) ) 
(call-with-output-file nth-subfile 
(lambda (0) 
(let loop ((k 1)) 
(let ((c (read-char i))) 
(cond ((eof-object? c) #f) 
(else 
(write-char c o) 
(if (< k floppy-size) 
(loop (+ k 1)) 
#t)))))))))) 


script's first arg 


;bigfile 
: the file that needs splitting 


(define bigfile (vector-ref argv 0)) 


script's second arg 


; subfile-prefix 
. the basename of the subfiles 


(define subfile-prefix (vector-ref argv 1)) 


;Call split, making subfile-prefix.{1,2,3,...} from 
;bigfile 


(split bigfile subfile-prefix) 
脚本 split4floppy 用 如 下 方法 调用 : 


split4floppy largefile chunk 


这 会 把 largefile ŽIR chunk.1 ` chunk.2 等 等 ， 每 个 小 块 文件 都 能 装 进 
KEP o 

所 有 chunk.i 都 移动 到 目标 电脑 上 以 后 可 以 通过 把 chunk.i 按 顺序 拼 起 来 还 
原 largefile 原文 件 ， 在 Unix 上 这 样 做 : 


cat chunk.1 chunk.2 ... > largefile 


在 DOS 下 这 样 做 : 


copy /b chunk.i+chunk.2+... largefile 


第 十 七 章 CGI 脚本 


(警告 : 缺乏 适当 安全 防护 措施 的 CGI 脚本 可 能 会 让 您 的 网 站 陷入 危险 状态 。 本 文 
中 的 脚本 只 是 简单 的 祥 例 而 不 保证 在 站 实 网 站 使 用 是 安全 的 。) 

CGI 脚本 是 驻 留 在 Web 服 务 器 上 的 脚本 ， 而 且 可 以 被 客户 端 (浏览 器 ) 运行 。 客 户 
端 通过 脚本 的 URL 来 访问 脚本 ， 就 像 访问 普通 页 面 一 样 。 服 务 器 识别 出 请 求 的 URL 
是 一 个 脚本 ， 于 是 就 运行 该 脚本 。 服 务 器 如 何 识 别 特定 的 URL 为 脚本 取决 于 服务 器 
的 管理 员 。 在 本 文中 我 们 假设 脚本 都 存放 在 一 个 单独 的 文件 夹 ， 名 为 cgi-bin。 因 
此 ，Www.foo.org 网 站 上 的 testcgi.scm 脚本 可 以 通过 http://www.foo.org/cgi- 
bin/testcgi.scm 来 访问 。 


服务 器 以 nobody 用 户 的 身份 来 运行 脚本 ， 不 应 当期 望 这 个 用 户 有 PATH 的 环境 
变量 或 者 该 变量 正确 设置 (这 太 主 观 了 ) 。 因 此 用 Scheme 编写 的 脚本 的 “引导 行 "会 
比 我 们 在 一 般 Scheme 脚 本 中 更 加 清楚 才 行 。 也 就 是 说 ， 下 面 这 行 代码 : 


":";exec mzscheme -r $0 "$@" 


隐 式 的 假设 有 一 个 特定 的 shell (如 bash) ， 而 且 设 置 好 了 PATH 变量 ， 而 
mzscheme 程 序 在 PATH 的 路 径 里 。 对 于 CGI 脚本 ， 我 们 需要 多 写 一 些 : 


#!/bin/sh 
":";exec /usr/local/bin/mzscheme -r $0 "$@Q" 


这 样 指定 了 shell 和 Scheme 可 执行 文件 的 绝对 路 径 。 控 制 从 shell 交 接 给 Scheme 的 
过 程 和 普通 脚本 一 致 。 


17.1 例 : 显示 环境 变量 


下 面 是 一 个 Scheme 编写 的 CGI 脚本 的 示例 ， testcgi.scm 。 该 文件 会 输出 一 些 常 
用 CGI 环境 变量 的 设置 。 这 些 信 息 作为 一 个 新 的 ， 刚 刚 创建 的 页 面 返回 给 浏览 器 。 
返回 的 页 面 就 是 该 CGI 脚本 向 标准 输出 里 写 入 的 任何 东西 。 这 就 是 CGI 脚本 如 何 回 





应 对 它们 的 调用 通过 返回 给 它们 (客户 端 ) 一 个 新 页 面 。 
注意 脚本 首先 输出 下 面 这 行 : 


content-type: text/plain 


后 面 跟 一 个 空 行 。 这 是 Web 服 务 器 提供 页 面 服务 的 标准 方式 。 这 两 行 不 会 在 页 面 上 
显示 出 来 。 它 们 只 是 提醒 浏览 器 下 面 将 发 送 的 页 面 是 纯 文本 〈 也 就 是 非 标记 ) 文 
字 。 这 样 浏览 器 就 会 恰当 的 显示 这 个 页 面 了 。 如 果 我 们 要 发 送 的 页 面 是 用 HTML 标 
记 的 ， content-type 就 是 text/html 。 
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下 面 是 脚本 testcgi.scm 


#!/bin/sh 
":""exec /usr/local/bin/mzscheme -r $0 "$@" 


;Identify content-type as plain text. 


(display "content-type: text/plain") (newline) 
(newline) 


;Generate a page with the requested info. This is 
;done by simply writing to standard output. 


(for-each 

(lambda (env-var) 
(display env-var) 
(display " = ") 
(display (or (getenv env-var) "")) 
(newline) ) 

AUTH ETYRE 
"CONTENT_LENGTH" 
"CONTENT_TYPE" 
"DOCUMENT_ROOT" 
"GATEWAY_INTERFACE" 
"HTTP_ACCEPT" 
"HTTP_REFERER" ; [sic] 
"HTTP_USER_AGENT" 
"PATH_INFO" 
"PATH_TRANSLATED" 
"QUERY_STRING" 
"REMOTE_ADDR" 
"REMOTE_HOST" 
"REMOTE_IDENT" 
"REMOTE USER™ 
"REQUEST_METHOD" 
"SCRIPT_NAME" 
"SERVER_NAME" 
"SERVER_PORT" 
"SERVER_PROTOCOL" 
"SERVER_SOFTWARE" ) ) 


testcgi.scm 可 以 直接 从 浏览 器 上 打开 ，URL 是 : 
http://www.foo.org/cgi-bin/testcgi.scm 


此 外 ， testcgi.scm 也 可 以 放 在 HTML 文 件 的 链接 中 ， 这 样 可 以 直接 点 击 ， 如 : 


. TO view some common CGI environment variables, click 
<a href="http://www. foo.org/cgi-bin/testcgi.scm">here</a>. 
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而 一 旦 触发 了 testcg.scm ， 它 就 会 生成 一 个 包括 环境 变量 设置 的 纯 文 本 页 面 。 
下 面 是 一 个 示例 输出 : 


AUTH_TYPE = 
CONTENT_LENGTH = 
CONTENT_TYPE = 
DOCUMENT_ROOT = /home/httpd/html 

GATEWAY_INTERFACE = CGI/1.1 

HTTP_ACCEPT = image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, 
HTTP_REFERER = 

HTTP_USER_AGENT = Mozilla/3.01Gold (X11; I; Linux 2.0.32 i586) 
PATH_INFO = 
PATH_TRANSLATED 
QUERY_STRING = 
REMOTE_HOST 
REMOTE_ADDR 
REMOTE_IDENT = 

REMOTE_USER = 

REQUEST_METHOD = GET 

SCRIPT_NAME /cgi-bin/testcgi.scm 
SERVER_NAME = localhost.localdomain 
SERVER_PORT 80 
SERVER_PROTOCOL 
SERVER_SOFTWARE 


TET 
HH 
N N 
NN 
oo 
oo 
HE 


HTTP/1.0 
Apache/1.2.4 





17.2 示例 : 显示 选择 的 环境 变量 


testcgi.scm 没有 从 用 户 获得 任何 输入 。 一 个 更 专注 的 脚本 会 从 用 户 那里 获得 一 
个 环境 变量 ， 然 后 输出 这 个 变量 的 设置 ， 此 外 不 返回 任何 东西 。 为 了 做 这 个 ， 我 们 
需要 一 个 机 制 把 参数 传递 给 CGI 脚本 。HTML 的 表单 提供 了 这 种 功能 。 下 面 是 完成 
这 个 目标 的 一 个 简单 的 HTML 页 面 : 


<html> 
<head> 
<title>Form for checking environment variables</title> 
</head> 
<body> 


<form method=get 

action="http://www. foo.org/cgi-bin/testcgi2.scm"> 
Enter environment variable: <input type=text name=envvar size=30> 
<p> 


<input type=submit> 
</form> 


</body> 
</html> 


———————— Se Se ee 


用 户 在 文本 框 中 输入 希望 的 环境 变量 (如 GATEWAY_INTERFACE ) 并 点 击 提交 按 
钮 。 这 会 把 所 有 表单 里 的 信息 
是 GATEWAY_INTERFACE 收集 并 发 送 到 该 表单 对 应 的 CGI 脚本 
BP testcgi2.scm 。 这 些 信息 可 以 用 两 种 方法 来 发 送 : 








1. 如 果 表 单 的 method 属性 是 GET (Ri) ， 那 么 这 些 信息 通过 环境 变 
量 QUERY_STRING 来 传递 给 脚本 

2. 如 果 表 单 的 method 属性 是 POST ， 那 么 这 些 信息 会 在 稍 后 发 送 到 CGI 脚本 的 
标准 输入 中 。 


我 们 的 表单 使 用 QUERY_STRING 的 方式 。 


把 信息 从 QUERY_STRING 中 提取 出 来 并 输出 相应 的 页 面 是 testcgi2.scm 脚本 的 
事情 。 


发 给 CGI 脚本 的 信息 ， 不 论 通过 环境 变量 还 是 通过 标准 输入 ， 都 被 格式 化 为 一 串 " 参 
数 / 值 "的 键 值 对 。 键 值 对 之 问 用 & 字符 分 TE 。 每 个 键 值 对 中 参数 的 名 字 在 前 面 而 
且 与 参数 值 之 间 用 = 分 开 。 这 种 情况 下 ， 只 有 一 个 键 值 对 ， 

PP envvar=GATEWAY_INTERFACE ° 


下 面 是 testcgi2.scm BA: 


Cnrhamana 
scneme 


#!/bin/sh 
":""exec /usr/local/bin/mzscheme -r $0 "$@" 


(display "content-type: text/plain") (newline) 
(newline) 


;string-index returns the leftmost index in string s 
that has character c 


(define string-index 
(lambda (s c) 
(let ((n (string-length s))) 
(let loop ((i 0)) 
(cond ((>= i n) #f) 
((char=? (string-ref s i) c) i) 
(else (loop (+ i 1)))))))) 


split breaks string s into substrings separated by character c 


(define split 
(lambda (c s) 
(let loop ((s s)) 
(iF “(Str ing=? 0 (全 
(let ((1 (string-index s c))) 
(if a (cons (substring s 0 2) 
(loop (substring s (+ i 1) 
(string-length s)))) 
(list s))))))) 


(define args 
(map (lambda (par-arg) 
(split #\= par-arg)) 
(split #\& (getenv "QUERY_STRING")))) 


(define envvar (cadr (assoc "envvar" args))) 
(display envvar) 
(display " = ") 


(display (getenv envvar) ) 


(newline) 


注意 辅助 过 程 split 把 QUERY_STRING 用 & 分 隔 为 键 值 对 并 进一步 用 = 把 参数 
名 和 参数 值 分 开 。 (如 果 我 们 是 用 POST 方法 ， 我 们 需要 把 参数 名 和 参数 值 从 标准 
输入 中 提取 出 来 。) 


<input type=text> 和 <input type=submit> 是 HTML 表 单 的 两 个 不 同 的 输入 
标签 。 参 考 文献 27 来 查看 全 部 。 


17.3 CGI 脚本 相关 问题 (utilities ) 


在 上 面 的 例子 中 ， 参 数 名 和 参数 值 都 假设 没有 包含 = 或 & 字符 。 通 常情 况 他 们 会 
包含 。 为 了 适应 这 种 字符 ， 而 不 会 不 小 心 把 他 们 当成 分 割 符 ，CGI 参 数 传递 机 制 要 
求 所 有 除了 字母 、 数 字 和 下 划 线 以 外 的 “特殊 "字符 都 要 编码 进行 传输 。 空 格 被 编码 
为 + ， 其 他 的 特殊 字符 被 编码 为 3 个 字符 的 序列 ， 包 括 一 个 % 字符 紧 跟 着 这 个 字 
符 的 16 进 制 码 。 因 此 ， 20% + 30% = 50%，&c， 会 被 编码 为 : 


20%25+%2b+30%25+%3d+50%25%2c+%26c%2e 


(空格 变 成 + ; % 变 为 %25 ; + 变 为 %2b ; = 变 为 %3d ; ， 变 
为 %2c : & 变 为 %26 ; . ŠA %2e ) 


除了 把 获得 和 解码 表单 的 代码 写 在 每 个 CGI 脚本 中 ， 把 这 些 函 数 放 在 一 个 库 文 
件 cgi.scm 中 。 这 样 testcgi2.scm 的 代码 写 起 来 更 紧凑 : 


#!/bin/sh 
":";exec /usr/local/bin/mzscheme -r $0 "$@" 


;Load the cgi utilities 
(load-relatve "cgi.scm") 


(display "content-type: text/plain") (newline) 
(newline) 


;Read the data input via the form 
(parse-form-data) 

;Get the envvar parameter 

(define envvar (form-data-get/1 "envvar")) 
;Display the value of the envvar 


(display envvar) 


(display "= ") 
(display (getenv envvar) ) 
(newline) 


这 个 简短 一 些 的 CGI 脚本 用 了 两 个 定义 在 cgi.scm 中 的 通用 过 
程 。 parse-form-data 过 程 读 取 用 户 通 过 表单 提交 的 数据 ， 包 括 参 数 和 值 。 


form-data-get/1 找到 与 特定 参数 关联 的 值 。 


cgi.scm 定义 了 一 个 全 局 表 叫 *form-data-table* 来 存放 表单 数据 。 


;Load our table definitions 
(load-relative "table.scm") 
‘Define the *form-data-table* 


(define *form-data-table* (make-table ‘equ string=?) ) 


使 用 诸如 parse-form-data 等 通用 过 程 的 一 个 好 处 是 我 们 可 以 不 用 管用 户 是 用 那 
种 方式 (get 或 post) 提交 的 数据 。 


(define parse-form-data 
(lambda () 
((if (string-ci=? (or (getenv "REQUEST_METHOD") "GET") "GET") 
parse-form-data-using-query-string 
parse-form-data-using-stdin) ))) 


4 Z m» 


环境 变量 REQUEST_METHOD 表示 使 用 那 种 方式 传送 表单 数据 。 如 果 方 法 是 GET ， 
那么 表单 数据 被 作为 字符 串通 过 另 一 个 环境 变量 QUERY_STRING 传输 。 辅 助 过 
程 parse-form-data-using-query-string 用 来 拆散 QUERY_STRING 


(define parse-form-data-using-query-string 
(lambda () 
(let ((query-string (or (getenv "QUERY_STRING") ""))) 
(for-each 
(lambda (par=arg) 
(let ((par/arg (split #\= par=arg))) 
(let ((par (url-decode (car par/arg))) 
(arg (url-decode (cadr par/arg)))) 
(table-put! 
*form-data-table* par 
(cons arg 
(table-get *form-data-table* par '())))))) 
(split #\& query-string))))) 


辅助 过 程 split ， 和 它 的 辅助 过 程 string-index ， 在 第 二 节 中 定义 过 了 。 正 如 
之 前 提 到 的 ， 输 入 的 表单 数据 是 一 串 用 & 分 割 的 键 值 对 。 每 个 键 值 对 中 先是 参数 
名 ， 然 后 是 一 个 = 号 ， 后 面 是 值 。 每 个 键 值 对 都 放 到 一 个 全 局 的 

表 *form-data-table* 里 。 


每 个 参数 名 和 参数 值 都 被 编码 了 ， 所 以 我 们 需要 用 url-decode 过 程 来 解码 得 到 
ENA AK RR © 


(define url-decode 
(lambda (s) 
(let ((s (string->list s))) 
(list->string 
(let loop ((s s)) 
(un R) 
(let ((a (car s)) (d (cdr s))) 
(case a 
((#\+) (cons #\space (loop d))) 
((#\%) (cons (hex->char (car d) (cadr d)) 
(loop (cddr d)))) 

(else (cons a (loop d))))))))))) 


+ 被 转换 为 空格 ， 通 过 过 程 hex->char , %xy 这 种 形式 的 词 也 被 转换 为 其 ascii 
编码 是 十 六 进 制 数 xy 的 字符 。 


(define hex->char 
(lambda (x y) 
(integer->char 
(string->number (string x y) 16)))) 


我 们 还 需要 一 个 处 理 POST 方 法 传输 数据 的 程序 。 辅 助 过 
程 parse-form-data-using-stdin 就 是 做 这 个 的 。 


(define parse-form-data-using-stdin 
(lambda () 
(let* ((content-length (getenv "CONTENT_LENGTH") ) 
(content-length 
(if content-length 
(string->number content-length) 0)) 
(i 0)) 
(let par-loop ((par '())) 
(let ((c (read-char))) 
(set! i (+ i 1)) 
(if (or (> i content-length) 
(eof-object? c) (char=? c #\=)) 
(let arg-loop ((arg '())) 
(let ((c (read-char))) 
(Seti a (+ 2 4))) 
(if (or (> 1 content-length) 
(eof-object? c) (char=? c #\&)) 
(let ((par (url-decode 
(list->string 
(reverse! par)))) 
(arg (url-decode 
(list->string 
(reverse! arg))))) 
(table-put! *form-data-table* par 
(cons arg (table-get *form-data-table* 
par '()))) 
(unless (or (> i content-length) 
(eof-object? c)) 
(par-loop '()))) 
(arg-loop (cons c arg))))) 
(par-loop (cons c par)))))))) 


POST 方法 通过 脚本 的 标准 输入 传输 表单 数据 。 传 输 的 字符 数 放 在 环境 变 
量 CONTENT_LENGTH 里 。 parse-form-data-using-stdin 从 标准 输入 读 取 对 应 
的 字符 ， 也 像 之 前 那样 设置 *form-data-table* ， 保 证 参数 名 和 值 被 解码 。 


剩 下 就 是 从 *form-data-table* 取 回 特定 参数 的 值 。 主 要 这 个 这 个 表 中 每 个 参数 
都 关联 着 一 个 列表 ， 这 是 为 了 适应 一 个 参数 多 个 值 的 情况 。 form-data-get RE 
一 个 参数 对 应 的 所 有 值 。 如 果 只 有 一 个 值 ， 就 返回 这 个 值 。 


(define form-data-get 
(lambda (k) 
(table-get *form-data-table* k '()))) 


form-data-get/1 返回 一 个 参数 的 第 一 个 (或 最 重要 的 ) 值 。 


(define form-data-get/1 
(lambda (k . default) 
(let ((vv (form-data-get k))) 
(cond ((pair? vv) (car vv)) 
((pair? default) (car default) ) 
(else ""))))) 


在 我 们 目前 的 例子 当中 ，CGI 脚 本 都 是 生成 纯 文 本 ， 通 常 我 们 希望 生成 一 个 HTML 
页 面 。 把 CGI 脚本 和 HTML 表 单 结合 起 来 生成 一 系列 带 有 表单 的 HTML 页 面 是 很 常见 
的 。 把 不 同方 法 的 响应 代码 放 在 一 个 CGI 脚本 里 也 是 很 常见 的 。 不 论 任 何 情况 ， 有 
一 些 辅助 过 程 把 字符 串 输 出 为 HTML 格 式 ( 即 ， 把 HTML 特 殊 字 符 进行 编码 ) ) 都 
是 很 有 帮助 的 : 


(define display-html 
(lambda (s . o) 
(let ((o (if (null? o) (current-output-port) 
(car 0)))) 
(let ((n (string-length s))) 
(let loop ((i 0)) 
(unless (>= i n) 
(let ((c (string-ref s 1))) 
(display 
(case c 
(SEO 
CG) "&gt;") 
((#\") "&quot;") 
((#\&) "&amp;") 
(else c)) o) 
(loop (+ i 1))))))))) 


17.4 一 个 CGI 做 的 计算 器 


下 面 是 一 个 CGI 计算 器 的 脚本 ， cgicalc.scm ， 使 用 了 Scheme 任意 精度 的 算术 功 


FAG 
月 已 


#!/bin/sh 
":";exec /usr/local/bin/mzscheme -r $0 


;Load the CGI utilities 
(load-relative "cgi.scm") 


(define uhoh #f) 


(define calc-eval 
(lambda (e) 
(if (pair? e) 
(apply (ensure-operator (car e)) 


(map calc-eval (cdr e))) 
(ensure-number e)))) 


(define ensure-operator 
(lambda (e) 


((**) expt) 


(else (uhoh "unpermitted operator"))))) 


(define ensure-number 
(lambda (e) 
(if (number? e) e 
(uhoh "non-number")) ) ) 


(define print-form 
(lambda () 
(display "<form action=\"") 
(display (getenv "SCRIPT_NAME" ) ) 
(display "\"> 
Enter arithmetic expression:<br> 
<input type=textarea name=arithexp><p> 
<input type=submit value=\"Evaluate\"> 
<input type=reset value=\"Clear\"> 
</form>") ) ) 


(define print-page-begin 
(lambda () 
(display "content-type: text/html 


<html> 
<head> 
<title>A Scheme Calculator</title> 
</head> 
<body>") )) 


(define print-page-end 
(lambda () 

(display "</body> 
</html>") ) ) 


(parse-form-data) 
(print-page-begin) 


(let ((e (form-data-get "arithexp"))) 
(unless (null? e) 
(let ((e1 (car e))) 
(display-html e1) 
(display "<p> 


=&gt;&nbsp;&nbsp;") 
(display-html 
(call/cc 
(lambda (k) 
(set! uhoh 
(lambda (s) 
(k (string-append "Error: " s)))) 
(number ->string 
(calc-eval (read (open-input-string (car e)))))))) 


(display "<p>")))) 


(print-form) 
(print-page-end) 


附录 A Scheme 方言 


所 有 主要 的 Scheme 方言 都 实现 了 R5RS 规 范 。 如 果 只 使 用 R5RS 中 规定 的 功能 ， 我 
们 就 能 写 出 在 这 些 方言 中 都 能 正常 运行 的 代码 。 然 而 R5RS 可 能 是 为 了 更 好 的 统一 
性 ， 或 是 由 于 不 可 避免 的 系统 依赖 ， 在 一 些 通用 编程 中 无 法 忽略 的 重要 问题 上 没有 
给 出 标准 。 因 此 这 些 Scheme 方 言 不 得 不 用 一 种 特殊 的 非 标准 手段 来 解决 这 些 问 
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本 书 使 用 了 Scheme 的 MzScheme 方 言 ， 因 此 也 使 用 了 一 些 非 标准 的 特性 。 以 下 是 
本 书 中 所 有 非 标 准 的 、 依 赖 于 MzScheme 提 供 的 特性 : 


命令 行 (包括 打开 一 个 侦 听 会 话 以 及 Shell 脚 本 ) 
define-macro 

delete-file 

file-exists? 
file-or-directory-modify-seconds 
fluid-let 

gensym 

getenv 

get -output-string 

load-relative 

open-input-string 
open-output-string 

read-line 

reverse! 

system 

unless 

when 


以 上 这 些 命令 中 除了 define-macro 和 system 外 都 是 在 MzScheme 的 默认 环境 
中 就 有 的 。 而 这 两 个 缺少 的 则 可 以 在 MzScheme 的 标准 库 中 找到 ， 通 过 以 下 方式 显 
式 地 加 载 。 


(require (lib "defmacro.ss")) ;provides define-macro 
(require (lib "process.ss")) ;provides system 


另外 还 可 以 把 这 两 段 代 码 放 在 MzScheme 的 初始 化 文件 中 (在 Unix 系 统 下 是 用 户 家 
目录 下 的 .mzschemerc 文件 ) 。 


一 些 非 标准 的 特性 (如 file-exists? 和 delete-file ) 事实 上 在 很 多 Scheme 
实现 中 已 经 是 “标准 "的 特性 了 。 另 一 些 特 性 〈 如 when 和 unless ) 或 多 或 少 有 
种 “插件 ” 式 的 定义 (在 本 书 中 给 出 ) ， 因 此 可 以 在 任何 不 具备 这 些 过 程 的 Scheme 中 
加 载 。 其 他 的 需要 针对 每 种 方言 来 定义 (如 load-relative ) ° 


本 章 描述 了 如 何 给 
了 解 更 多 关于 你 使 用 的 Scheme 方言 


合 你 使 用 的 Scheme 方言 加 上 本 书 中 用 到 的 这 些 非 标 准 特性 。 想 要 
， 请 参考 其 实现 者 提供 的 文档 (附录 E) 。 


A.1 调用 和 初始 化 文件 


很 多 Scheme 方言 就 像 MzScheme 一 样 都 会 从 用 户 的 家 目录 中 载 入 初始 化 文件 。 我 
们 可 以 把 非 标准 功能 的 定义 都 放 到 这 个 初始 化 文件 中 ， 这 样 非常 方便 。 比 如 ， 非 标 
准 过 程 file-or-directory-modify-seconds 可 以 添加 到 Guile 语 言 中 ， 只 要 把 
下 面 的 代码 放 到 Guile 的 初始 化 文件 〈 


~/.guile ) PPPT : 


(define file-or-directory-modify-seconds 


(lambda (f) 
(vector-ref (stat f) 9))) 


另外 ， 不 同 的 Scheme 方言 有 他 们 自己 的 不 同 的 命令 来 启动 对 应 的 侦 听 器 。 下 面 的 

表格 列 出 了 不 同 Scheme 方 言 对 应 的 启动 命令 和 初始 化 文件 位 置 : 
Dialect name Command Init file 
Bigloo bigloo ~/.bigloorc 
Chicken csi IAES INE 
Gambit gsi ~/gambc.scm 
Gauche gosh ~/.gaucherc 
Guile guile ~/ .guile 
Kawa kawa ~/.Kkawarc.scm 
MIT Scheme (Unix) scheme ~/.scheme.init 
MIT Scheme (Win) scheme ~/scheme. ini 
MzScheme (Unix, Mac OS X) mzscheme ~/.mzschemerc 
MzScheme (Win, Mac OS Classic) mzscheme ~/mzschemerc.ss 
SCM scm ~/ScmInit.scm 
STk snow ~/.stkrc 

A.2 Shell #7 4 

使 用 Guile 编 写 的 Shell 脚 本 的 初始 行 差 不 多 应 该 是 : 


":";exec guile -s $0 "$@" 


在 Guile 脚 本 中 ， 调 用 过 程 (command-line) 会 以 列表 的 形式 返回 脚本 的 名 称 和 参 
数 。 如 果 只 需要 参数 ， 只 需要 获得 列表 的 cdr 部 分 即 可 。 


用 Gauche 编 写 的 Shell 脚 本 以 : 


":"; exec gosh -- $0 "$@" 


开头 。 在 脚本 中 变量 *argv* 中 保存 着 脚本 的 参数 列表 。 
用 SCM 编 写 的 Shell 脚 本 以 : 


":";exec scm -1 $0 "$@" 


开头 。 脚 本 中 变量 *argv* 保存 着 一 个 列表 ， 列 表 中 包括 Scheme 可 执行 文件 的 名 
称 ， 脚 本 的 名 称 ， -1 这 个 选项 ， 还 有 脚本 的 参数 。 如 果 只 需要 参数 ， 对 列表 执 
íT cdddr 即 可 。 


STk 的 Shell 脚 本 以 : 


":";exec snow -f $0 "$@" 
开头 。 在 脚本 中 变量 *argv* 中 保存 着 脚本 的 参数 列表 。 


A.3 define-macro 


本 文中 使 用 的 define-macro 宏 在 Scheme 的 很 多 方言 如 Bigloo，Chicken ， 
Gambit，Gauche，Guile，MzScheme 和 Pocket 中 都 有 定义 。 在 其 他 Scheme 方言 
中 定义 密 的 方式 基本 上 是 相同 的 。 本 节 将 指出 其 他 Scheme 方言 是 如 何 表示 如 下 一 
段 代码 片段 的 : 


(define-macro MACRO-NAME 
(lambda MACRO-ARGS 
MACRO-BODY ...)) 


在 MIT Scheme 第 7.7.1 或 更 高 版 本 中 ， 上 述 代 码 被 写 为 : 


(define-syntax MACRO-NAME 
(rsc-macro-transformer 
(let ((xfmr (lambda MACRO-ARGS MACRO-BODY ...))) 
(lambda (e r) 
(apply xfmr (cdr e)))))) 


在 老 版 本 的 MIT Scheme 中 : 


(syntax-table-define system-global-syntax-table 'MACRO-NAME 
(macro MACRO-ARGS 
MACRO-BODY ...)) 


在 SCM 和 Kawa 中 : 


(defmacro MACRO-NAME MACRO-ARGS 
MACRO-BODY ...) 


在 STk 中 : 


(define-macro (MACRO-NAME . MACRO-ARGS) 
MACRO-BODY ...) 


A.4 load-relative 
过 程 load-relative 可 以 在 Guile 中 如 下 定义 : 


(define load-relative 
(lambda (f) 
(let* ((n (string-length f)) 
(full-pathname? 
(and (> n 0) 
(let ((cO (string-ref f 0))) 
(or (char=? cO #\/) 
(char=? cO #\~)))))) 
(basic-load 
(if full-pathname? f 
(let ((clp (current-load-port))) 
(if clp 
(string-append 
(dirname (port-filename clp)) "/" f) 
f))))))) 


在 SCM 中 可 以 这 样 写 : 


(define load-relative 


(lambda (f) 
(let* ((n (string-length f)) 


(full-pathname? 


(and (> n 0) 
(let ((cO (string-ref f 0))) 


(or (char=? cO #\/) 
(char=? cO #\~)))))) 
(load (if (and *load-pathname* full-pathname? ) 
(in-vicinity (program-vicinity) f) 


ODDI 


对 于 STk， 下 面 的 load-relative 过 程 仅 在 没有 使 用 load 过 程 时 生效 : 


(define *load-pathname* #f) 
(define stk%load load) 


(define load-relative 


(lambda (f) 
(fluid-let ((*load-pathname* 
(if (not *load-pathname*) f 
(let* ((n (string-length f)) 
(full-pathname? 


(and (> n 0) 
(let ((cO (string-ref f 0))) 


(or (char=? cO #\/) 
(char=? cO #\~)))))) 
(if full-pathname? f 
(string-append 
(dirname *load-pathname* ) 


a DO 
(stk%load *load-pathname*)))) 


(define load 


(lambda (f) 
(error "Don't use load. Use load-relative instead."))) 


我 们 使 用 ~/filename 表示 用 户 家 目录 中 被 调用 的 文件 。 


附录 B 在 DOS 中 运行 Scheme 脚本 


通常 一 个 输出 Hello World! 的 DOS 批 处 理 文件 应 
这 样 写 : 


echo Hello, World! 


这 里 用 到 了 DOS 的 命令 echo 。 脚 本 文件 被 命名 为 hello.bat ， 这 样 会 被 操作 系 
统 认 为 是 可 执行 的 。 然 后 可 以 放 入 任 一 在 PATH 环境 变量 中 的 目录 下 。 然 后 任何 时 
候 在 DOS 提 示 符 下 输入 


hello.bat 


或 者 更 简单 的 : 


hello 


就 能 立即 得 到 这 句 俗 得 不 能 再 俗 的 问候 。 


Scheme 版 本 的 hello 批 处 理 文件 会 用 Scheme 产 生 相 同 的 输出 ， 但 是 我 们 需要 在 
文件 中 写 一 些 东 西 来 告诉 DOS 让 它 用 Scheme 来 分 析 文 件 内 容 ， 而 不 是 理解 为 它 默 
认 的 脚本 批 处 理 语言 。Scheme 的 批 处 理 文件 (也 命名 为 hello.bat ) ， 内 容 如 

F: 


;@echo off 
;goto :start 


echo. > c:\_temp.scm 

echo (load (find-executable-path "hello.bat" >> c:\_temp.scm 
echo "hello.bat")) >> c:\_temp.scm 

mzscheme -r c:\_temp.scm %1 %2 %3 %4 %5 %6 %7 %8 %9 

goto :eof 

|# 


(display "Hello, World!") 
(newline) 


:eof 


到 |# 之 前 全 部 是 标准 的 DOS 批 处 理 命令 。 后 面 是 Scheme 的 问候 代码 。 最 后 还 有 
一 行 标准 的 DOS 批 处 理 ， 即 ; :eof 。 


当 用 户 在 DOS 提 示 符 下 输入 hello 时 ，DOS 读 取 并 将 hello.bat 作为 一 个 普通 
的 批 处 理 文件 来 运行 。 第 一 行 ， ;@echo off ， 关 闭 了 命令 运行 时 产生 的 输出 

一 一 我 们 不 想 让 大 量 宛 余 信息 淹没 我 们 脚本 产生 的 输出 。 第 二 

行 ， ;goto :start ， 让 脚本 的 执行 跳 转 到 标号 :start 即 第 四 行 。 后 面 接着 
的 echo 行 创建 了 一 个 叫 c:\_temp.scm 的 Scheme 临时 文件 ， 其 内 容 如 下 : 


(load (find-executable-path "hello.bat" "hello.bat")) 


下 一 个 批 处 理 命令 调用 MzScheme。 -r 选项 加 载 Scheme 文 件 c:\_temp.scm ° 
所 有 的 参数 (在 这 个 例子 里 没有 ) 可 以 在 Scheme 中 通过 argy 向 量 来 获得 。 这 个 
调用 的 Scheme 会 对 我 们 的 脚本 进行 来 值 ， 我 们 下 面 会 看 到 。Scheme 执 行 返 回 后 ， 
我 们 仍然 需要 让 批 处 理 文件 正常 地 结束 (否则 就 会 碰 到 它 不 认识 的 Scheme 代 码 
J) 。 下 一 个 批 处 理 命令 是 goto :eof ， 这 会 让 控制 流 跳 过 所 有 的 Scheme 代 

码 ， 到 达 文 件 末 尾 ， 也 就 是 包含 ; :eof 标签 的 一 行 。 然 后 脚本 结束 运行 。 


现在 我 们 知道 如 何 让 Scheme 来 执行 它 的 那 部 分 代码 ， 即 运行 上 论 入 在 批 处 理 文 件 中 
的 Scheme 表达 式 。 载 入 c:\_temp.scm 会 使 Scheme 找到 hello.bat 文件 的 绝 
对 路 径 〈 用 find-executable-path 过 程 ) ， 然 后 载 入 hello.bat 。 


因此 ，Scheme 脚 本 文件 现在 会 以 Scheme 文件 来 运行 ， 文 件 中 的 Scheme 表达 式 可 
以 通过 向 量 argv 来 访问 脚本 的 原始 参数 。 


现在 Scheme 略 过 脚本 中 的 批 处 理 命令 。 这 是 因为 这 些 批 处 理 命令 要 么 以 分 号 开 
Ke ZAM #|...|# 包 衰 ， 这 在 Scheme 看 来 是 注释 。 

文件 剩 下 的 部 分 当然 是 Scheme 代码 ， 因 此 表达 式 被 依次 求 值 (最 后 的 表达 

式 s:eof 是 一 个 Scheme 注释 ， 因 此 没有 关系 ) 总 之 所 有 的 表达 式 被 求 值 后 ， 
Scheme 会 退出 。 


综 上 所 述 ， 在 DOS 提 示 符 下 输入 hello 会 产生 


Hello, World! 


并 返回 DOS 提 示 符 。 


附录 C 数值 计算 技术 


递归 (包括 循环 ) 与 Scheme 的 算术 基本 过 程 结 合 可 以 实现 各 种 数值 计算 技术 。 作 
为 一 个 例子 ， 我 们 来 实现 辛普森 法 则 ， 这 是 一 个 用 来 计算 定 积分 的 数值 解 的 过 程 。 


C.1 HB RAR DI 


函数 f(x) 在 区 间 [a,b] 上 的 定 积分 可 以 看 作 是 f(x) 曲 线 下 方 从 x=a 到 x=b 的 区 域 的 面积 。 
也 就 是 说 ， 我 们 把 f(x) 的 曲线 绘制 在 xy 平 面 上 ， 然 后 找到 由 该 曲线 ，x 轴 ，x=a 和 x=b 
所 围 成 区 域 的 面积 即 是 积分 值 。 


根据 辛普森 法 则 ， 我 们 把 积分 区 间 [a,b] 划 分 为 n 个 相等 的 区 间 ，n 是 一 个 偶数 〈n 越 
大 ， 近 似 的 效果 就 越 好 ) 。 区 间 边 界 在 x 轴 上 形成 了 n+1 个 点 ， 即 : $x0, x_1, Vaots， 
x_i, x{i+1}, \Idots, x_n$ ， 其 中 $x_0=a, x_n= b$ 。 每 个 小 区 间 的 长 度 是 h=(b-a)/n ， 
这 样 $x_i=atih$ ， 我 们 然后 计算 f(x) 在 区 间 端 点 的 纵 坐 标 值 ， 即 ， 其 中 
$y_i=f(x_i)=f(x+ih)$。 辛 普 杰 法 则 用 下 列 算 式 模 拟 f(x) 在 a 到 b 之 问 的 定 积分 : 


$$\frac{hH3}[(yO+y_n)+4(y_1+y_3+\dots ty{n-1})+2(y2+y_4+\dots +y{n-2})]$$ 


我 们 定义 一 个 过 程 ureei aio simpson ， 该 过 程 接受 四 个 参数 : RP BR FE? 
积分 限 a 和 b ， 以 及 划分 区 间 的 数目 n 。 


(define integrate-simpson 


(lambda (f a b n) 


首先 我 们 需要 在 integrate-simpson 函数 里 做 的 是 保证 n 为 偶数 ， 如 果 不 是 的 
话 ， 我 们 直接 把 n 加 上 1. 


(unless (even? n) (set! n (+ n 1))) 


接 下 来 我 们 把 区 间 长 度 保 存在 变量 h 中 。 我 们 引入 两 个 变量 h*2 和 n/2 KE 
存 h 的 两 倍 和 mn 的 一 半 ， 因 为 我 们 会 在 后 面 的 计算 过 程 中 经 常用 到 这 两 个 变量 。 


a) 
nea" he 2 
n 2)) 


我 们 注意 到 ae +y 3+ \cdots + y{n-1}$ 5 $y2+y 4+ \cdots + y{n-2}$ 都 要 把 
每 个 纵 坐 标 进行 相 加 。 所 以 我 们 定义 一 个 本 地 过 

程 sum-every-other-ordinate-starting-from 来 捕获 公共 的 循环 过 程 。 通 过 把 
这 个 循环 抽象 为 一 个 过 程 ， 我 们 可 以 避免 重复 写 这 个 循环 。 这 样 不 仅 减 少 了 劳动 

量 ， 而 且 减 少 了 错误 发 生 的 可 能 ， 因 为 我 们 只 需要 调试 一 个 地 方 即 可 。 


过 程 sum-every-other-ordinate-starting-from 接受 两 个 参数 : 起 始 纵 坐 标 和 
被 相 加 的 纵 坐 标的 数量 。 


(sum-every-other-ordinate-starting-from 
(lambda (x0 num-ordinates) 
(let loop ((x x0) (i 0) (r 0)) 
(if (>= 1 num-ordinates) r 
(loop (+ x h*2) 
(i 1) 
(+ r (f x))))))) 


我 们 现在 可 以 计算 着 三 个 纵 坐 标的 和 ， 然 后 把 它们 拼 起 来 得 到 最 后 的 结果 。 注 意 
$y1+y_3+ \cdots + y{n-1}$ F An/2M > Æ $y2+y 4+ \cdots + y{n-2}$ 中 有 
(n/2)-1 2% ° 


(yOtyn (+ (f a) (f b))) 
(y1+y3+...+y.n-1 
(sum-every-other-ordinate-starting-from 
(+ a h) n/2)) 
(y2+y4+...+y.n-2 
(sum-every-other-ordinate-starting-from 
(+ a h*2) (- n/2 1)))) 
(* 1/3 h 
(+ yO+yn 
(* 4.0 y1+y3+...+y.n-1) 
(* 2.0 y2+y4+...+y.n-2)))))) 


现在 我 们 来 用 integrate-simpson 来 求 下 面 函 数 的 定 积分 : 


$$\phi(x) = \frac{1}{\sqrt{2\pi}}e*C-\frach2H2H$$ 
我 们 首先 需要 用 Scheme 的 S 表 达 式 来 定义 $phi$ ° 


(define *pi* (* 4 (atan 1))) 


(define phi 
(lambda (x) 
CC eye pa) 
(exp (- (* 1/2 (* x x))))))) 


注意 我 们 用 $tan^{-1}1 = \frac{\piH4}$ 来 定义 *pi* 。 
下 面 的 调用 分 别 计 算 了 从 0 到 1,2,3 的 积分 值 。 都 使 用 了 10 个 区 间 。 


(integrate-simpson phi 0 1 10) 
(integrate-simpson phi 0 2 10) 
(integrate-simpson phi 0 3 10) 


p 果 精确 到 小 数 点 后 四 位 ， 上 面 的 值 应 该 分 别 是 0.3413 0.4772 0.4987。 可 以 看 出 
我 们 实现 的 六 普 森 积分 法 确实 获得 了 相当 精确 的 值 ! 


C.2 自 适 应 区 间 长 度 


每 次 都 指定 区 间 数 目 感觉 不 是 很 方便 。 对 某 个 积分 来 说 足够 好 的 n 可 能 对 另 一 个 
积分 来 说 差 太 多 。 < 最 好 指定 一 个 可 以 接受 的 误差 e ， 然 后 让 程序 计 
算 到 底 需 要 分 多 少 个 区 间 。 完 成 该 任务 的 典型 方法 是 让 程序 通过 增加 n 来 得 到 更 好 
的 结果 ， 直 到 连续 两 次 结果 之 间 的 误差 小 于 e 。 因 此 : 


(define integrate-adaptive-simpson-first-try 
(lambda (f a b e) 
(let loop ((n 4) 
(iprev (integrate-simpson f a b 2))) 
(let ((icurr (integrate-simpson f a b n))) 
(if (<= (abs (- icurr iprev)) e) 
icurr 


(loop (+ n 2))))))) 


这 里 我 们 连续 两 次 计算 辛普森 积分 (用 我 们 最 初 定义 的 过 
程 integrate-simpson ) > n 从 2,4，。。。 注 意 n 必须 是 偶数 。 当 当前 n 的 
积分 值 icurr 与 前 一 次 n 的 积分 值 iprev 的 差 小 于 e 时 ， 我 们 返回 icurr 


这 种 方法 的 问题 是 我 们 没有 考虑 对 于 某 个 函数 来 说 可 能 只 有 某 一 段 或 多 段 能 从 增长 
的 区 间 中 获 益 。 和 ， 区 间 增 长 只 会 增加 计算 量 ， 而 不 会 让 整 
体 的 结果 更 好 。 对 于 一 个 增长 的 适应 过 程 而 言 ， 我 们 可 以 把 积分 拆 成 相 邻 的 几 段 ， 
让 每 段 的 精度 独立 的 增长 。 


(define integrate-adaptive-simpson-second-try 
(lambda (f a b e) 
(let integrate-segment ((a a) (b b) (e e)) 
(let ((i2 (integrate-simpson f a b 2)) 
(i4 (integrate-simpson f a b 4))) 
(if (<= (abs (- i2 i4)) e) 


(let ((c (/ (+ ab) 2)) 
(e (/ e 2))) 
(+ (integrate-segment a c e) 
(integrate-segment c b e)))))))) 


alee a 到 b ， 为 了 找到 一 段 的 积分 ， 我 们 用 两 个 最 小 的 区 间 数 目 2 和 4 来 计 
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nee 分 成 两 份 ， 递 归 计 算 每 段 的 积分 并 相 加 。 通 常 ， 同 一 层 的 不 同 段 以 它们 自 
己 的 节奏 来 汇聚 。 注 意 当 我 们 积分 半 段 时 ， 允 许 的 误差 也 要 减 半 ， 这 样 才 不 会 产生 
精度 丢失 。 


这 个 过 程 中 仍然 存在 一 些 低 效 之 处 : 积分 i4 重新 计算 了 计算 i2 时 用 到 的 三 个 纵 
坐标 ， 而 且 每 个 半 段 的 积分 都 重新 计算 了 i2 和 i4 用 到 的 三 个 纵 坐 标 。 我 们 可 以 
proper 2 iad ED I ee al oealg 这 


样 有 利 1? es segment 内 部 和 连续 调用 integrate-segment 时 共 
些 信 息 


(define integrate-adaptive-simpson 
(lambda (f a b e) 
(lee C A EE D ED E 
(mid-a.b (+ a (* 2N) 
(let integrate-segment ((x0 a 


(x2 mid.a.b) 

(x4 b) 

(yO (f a)) 

(y2 (f mid.a.b)) 
(y4 (f b)) 

(h h) 

(e e)) 


(let* ((x1 (+ x0 h)) 
2n) 
(y1 (f x1)) 
(y3 (f x3)) 
(i2 (* 2/3 h (+ yO y4 (* 4.0 y2)))) 
(i4 (* 1/3 h (+ yO y4 (* 4.0 (+ y1 y3)) 
(* 2.0 y2))))) 
(if (<= (abs (- i2 i4)) e) 
i4 
(let ((h (/ h 2)) (e (/ e 2))) 
(+ (integrate-segment 
x0 x1 x2 yO y1 y2 h e) 
(integrate-segment 
x2 x3 x4 y2 y3 y4 h e))))))))) 


integrate-segment 现在 显 式 地 设置 了 四 个 h 大 小 的 区 间 ， 五 个 纵 坐 

标 yO, y1, y2, y3, y4 RT i4 用 到 了 所 有 的 坐标 值 ， 12 的 区 间 大 小 是 
两 倍 的 h ， 故 只 用 到 了 yo, y2, y4 。 很 容易 看 出 i2 和 i4 用 到 的 和 符合 辛 

普 森 公式 中 的 和 。 


比较 下 面 对 积 分 $\int_{0}^{20}e^{x}dx$ 的 近似 : 


(integrate-simpson exp 0 20 10) 
(integrate-simpson exp 0 20 20) 
(integrate-simpson exp 0 20 40) 


(integrate-adaptive-simpson exp © 20 .001) 
(- (exp 20) 1) 


可 以 分 析出 最 后 一 个 是 正确 的 答案 。 看 看 你 能 不 能 找到 一 个 最 小 的 n (如 果 设 得 
太 小 会 算得 超级 慢 。。。) 让 (integrate-simpson exp 0 20 n) 返回 一 个 
和 integrate-adaptive-simpson 算出 的 差不多 的 答案 ? 


C.3 广义 积分 〈 反 第 积分 ) 


疼 森 积分 法 不 能 直接 用 来 计算 广义 积分 (这 种 积分 的 被 积 函 数 在 茶 个 点 的 值 无 穷 
或 者 积分 区 间 的 端点 无 穷 大 ) 。 然 而 这 个 积分 法 仍然 可 以 用 于 部 分 积分 ， 而 剩 下 
的 部 分 用 其 他 办 法 来 获得 近似 值 。 比 如 ， 考 虑 伽 玛 函数 $\Gammas 。 对 n>0 ， 
$\Gamma(n)$ 被 定义 为 下 面 的 积分 (积分 上 限 为 无 穷 ) 
$$\Gamma(n)=\int_{0}f\infty} x^{n-1}e^{-x}dx$$ 

从 上 式 可 以 看 出 两 个 结论 : 

a. $\Gamma(1)=1$ b. 对 n>0 > $\Gamma(n+1)=n\Gamma(n)$ 


这 就 意味 着 如 果 我 们 知道 $\Gamma$ 在 区 间 (1,2) 上 的 值 ， 我 们 就 可 以 知道 任何 n>0 
的 $\Gamma(n)$ 。 实 际 上 ， 如 果 我 们 放宽 条 件 n>0， 我 们 可 以 用 结论 b 来 把 
$\Gamma(n)$ 扩展 到 n < 0; 而 函数 在 n < 0 时 会 发 散 。 


我 们 首先 实现 一 个 Scheme 过 程 gamma-1-to-2 ， 其 参数 n 在 区 间 (1,2) 
内 。 gamma-1-to-2 的 第 二 个 参数 e 是 精确 度 。 


x 
大 


(define gamma-1-to-2 
(lambda (n e) 
(unless (< 1 n 2) 
(error 'gamma-1-to-2 "argument outside (1, 2)")) 


我 们 引入 一 个 局 部 变量 gamma-integrand 来 保存 $\Gamma$ 中 的 被 积 函 数 
$g(x)=x^A{n-1}e^x$ : 


(let ((gamma-integrand 
(let ((n-1 (- n 1))) 
(lambda (x) 
(* (expt x n-1) 
(exp (- x)))))) 


我 们 现在 需要 让 g(x) 从 0 积分 到 $linfty$ ， 首 先 我 们 没 法 定义 一 个 “无 穷 " 的 区 间 表 
Ti 因此 我 们 用 辛普森 公式 只 积分 一 个 部 分 ， 如 $[0,x_c]$ 〈c 的 意思 是 截取 

(cut)) ， 对 于 剩 下 的 部 位 ， "尾部 ”， 区 间 $[x_c,\infty]$ ， 我 们 用 一 个 “尾部 "被 积 郊 
数 t(X) 来 近似 g(X)， 这 样 更 加 容易 分 析 和 处 理 。 事 实 上 ， 可 以 很 容易 看 出 对 于 足够 大 
的 $x c$ ， 我 们 可 以 把 g(X) 替 换 为 一 个 递减 的 指数 函数 $t(x)=y_ce-(x-x_c)}$ > # 
中 $y_c=g(x_c)$ > Ast: 


$$\int0^Ainfty}g(x)dx \approx \int_O*{x_c}g(x)dx + \int{x_c}{\infty}t(x)dx$$ 


前 一 个 积分 可 以 用 辛普森 公式 来 解 出 ， 后 一 个 就 是 $y c$。 为 了 找 $x_c$ ， 我 们 
从 一 个 比较 小 的 值 (如 4 ) 开始 ， 然 后 通过 每 次 扩大 一 倍 来 改进 积分 结果 ， 直 到 
在 $2x_c$ RM BAAR (BP $g(2x_c)$ ) 在 一 个 特定 的 由 “尾部 "的 被 积 函 数 纵 坐 标 


误差 之 内 。 ie ae, 个 计算 ， e/100 °? Æ 
比 e 再 小 两 个 数量 级 ， 这 样 对 总 体 的 误差 不 会 有 太 大 影响 


(e/100 (/ e 100))) 
(let loop ((xc 4) (yc (gamma-integrand 4))) 
(let* ((tail-integrand 
(lambda (x) 
(* ye (exp (- (- x xc)))))) 
(x1, (* 2 xe)) 
(y1 (gamma-integrand x1) ) 
(yi-estimated (tail-integrand x1))) 
(if (<= (abs (- y1 yi-estimated)) e/100) 
(+ (integrate-adaptive-simpson 
gamma-integrand 
© xc e/100) 


yc) 
(loop x1 y1))))))) 


我 们 现在 可 以 写 一 个 更 通用 的 过 程 gamma 来 返回 任意 n 对 应 的 $\Gamma(n)$ : 


(define gamma 
(lambda (n e) 
(cond ((< n 1) (/ (gamma (+ n 1) e) n)) 
Cent) et) 
((< 1 n 2) (gamma-1-to-2 n e)) 
(else (let ((n-1 (- n 1))) 
(* n-1 (gamma n-1 e))))))) 


我 们 现在 来 计算 $\Gammai(\frac{3}2})$ : 


(gamma 3/2 .001) 
(1/2 (sore pi) 


第 二 个 值 是 理论 上 的 正确 答案 。 (这 是 由 于 $\Gamma(\frac{3}2})=\frac{1} 
PE N ， 而 可 以 证 明 的 值 是 $$pi^ 人 \frac{1} 
{2}}$ ) 你 可 以 通过 更 改过 程 gamma 的 第 二 个 参数 (误差 ) 让 结果 达到 任何 你 想 要 
的 近 ER ° 


[1]. 想 了 解 为 什么 这 种 近似 是 合理 的 ， 请 参考 任意 一 种 基础 的 微 积分 教程 。[2] 
$\phi$ 是 服从 正 态 或 高 斯 分 布 的 随机 变 = 的 概率 密度 函数 。 其 均值 为 0 而 方差 为 1。 
ZRT $\int_0^z\phi(x)dx $ 是 该 随机 变量 在 0 到 z 之 间 取 值 的 概率 。 然 而 你 并 不 需要 
了 解 这 么 多 也 可 以 理解 这 个 例子 ! [3]. 如 果 Scheme 没 有 atan 过 程 ， 我 们 可 以 用 
我 们 的 数值 积分 过 程 来 得 到 积分 Sint 0^1(1+x^2)^{-1}dx$ 的 值 ， 即 $\pi/4$ 。 [4]. 








把 常量 一 一 如 phi 中 的 (/ 1 (sqrt (* 2 *pit))) 一 一 提取 到 被 积分 函数 外 
面 ， 可 以 加 速 integrate-simpson 中 纵 坐 标的 计算 。[5]. 对 大 于 0 的 实数 n 来 说 
$lGamma(n)$ 是 “ 减 小 后 阶乘 ”函数 (把 正 整 数 n 映 射 到 (n-1j1) 的 一 个 扩展 。 


附录 DD 可 设 为 infinity 的 时 钟 


Guile 的 过 程 alarm 提供 了 一 种 可 中 断 的 定时 器 机 制 。 用 户 可 以 给 这 个 时 钟 设 置 或 
重 置 一 些 时 间 片 ， 或 者 让 它 停 止 。 当 时 钟 的 定时 器 递减 到 0 后 ， 它 就 会 执行 用 户 之 
前 设 定 的 动作 。Guile 的 alarm 不 是 一 个 类 似 于 第 十 五 章 第 一 节 里 定义 的 那 种 时 
钟 ， 但 是 我 们 可 以 很 容易 的 把 它 改造 成 那样 。 


时 钟 的 定时 器 的 初始 状态 是 停止 的 ， 也 就 是 说 它 不 会 随 着 时 间 流逝 而 被 "触发 *。 如 
果 想 把 定时 器 的 触发 时 间 设 置 为 n 秒 (n 不 为 0) ， 运 行 (alarm n) 。 如 果 定 
时 器 已 经 被 设 定 过 了 ， 那 么 (alarm n) 就 返回 该 定时 器 在 本 次 设 定 前 剩余 的 秒 

数 。 如 果 之 前 没有 设 定 过 ， 则 返回 0 。 

执行 (alarm 0) 让 时 钟 的 定时 器 停止 ， 即 定时 器 中 的 计数 器 【你 可 以 理解 为 一 个 
变量 】 不 会 随时 间 而 递减 ， 而且 不 会 触发 。 (alarm 0) 同样 返回 定时 器 在 本 次 设 
定 前 剩余 的 秒 数 (如 果 之 前 设 定 过 的 话 ) o 

默认 情况 下 ， 当 时 钟 的 定时 器 计数 减 到 0 时 ，Guile 会 在 控制 台 上 显示 一 条 消息 并 退 
出 。 更 多 的 行为 可 以 用 过 程 sigaction 来 设 定 ， 如 下 所 示 : 


is 


(sigaction SIGALRM 
(lambda (sig) 
(display "Signal ") 
(display sig) 
(display " raised. Continuing...") 
(newline) )) 


第 一 个 参数 SIGALRM (恰好 是 14) 告诉 sigaction 需要 设 定 的 时 钟 处 理 函 数 
[1]。 第 二 个 参数 是 一 个 用 户 指定 的 单 参数 过 程 。 在 这 个 例子 里 ， 当 时 钟 触发 时 ， 处 
理 函 数 会 在 控制 台 上 显示 "Signal 14 raised. Continuing..." 而 不 是 退出 
Scheme (14 是 变量 SIGALRM 的 值 ， 时钟 会 把 它 传递 给 它 对 应 的 处 理 过 程 ， 我 们 
现在 先 不 考虑 这 个 ) 。 


从 我 们 的 角度 看 ， 这 种 简单 的 定时 器 机 制 有 一 个 问题 。 过 程 alarm 的 返回 值 9 的 
意义 是 不 明确 的 : 既 可 能 是 指 时 钟 处 于 停止 状态 ， 也 有 可 能 是 刚好 计时 器 减 到 了 
0。 我 们 可 以 通过 在 时 钟 的 算法 里 引入 *infinity* 来 解决 这 个 问题 。 换 名 话说 ， 
我 们 需要 的 时 钟 与 alarm 基本 上 是 差不多 的 ， 除 了 一 点 ， 那 就 是 如 果 时 钟 停止 的 
> MACH *infinity* 秒 。 这 样 就 看 起 来 比较 自然 了 。 


1. (clock n) 对 于 一 个 停止 的 时 钟 返回 *infinity* ， 而 不 是 0 。 
2. 如 果 让 时 钟 停止 ， 执 行 (clock *infinity*) ， 而 不 是 (clock 0) ° 
3. (clock 0) 相当 于 给 时 钟 设置 一 个 无 限 小 的 时 间 ， 也 就 是 让 它 立即 触发 。 


在 Guile 中 ， 我 们 可 以 把 *infinity* 定义 为 如 下 的 “ 数 ”: 


(define *infinity* (/ 1 0)) 


Scheme 语言 简明 教程 


我 们 用 alarm 来 定义 clock 。 


(define clock 
(let ((stopped? #t) 
(clock-interrupt-handler 
(lambda () (error "Clock interrupt!")))) 
(let ((generate-clock-interrupt 
(lambda () 
(set! stopped? #t) 
(clock-interrupt-handler)))) 
(sigaction SIGALRM 
(lambda (sig) (generate-clock-interrupt) )) 
(lambda (msg val) 
(case msg 
((set-handler) 
(set! clock-interrupt-handler val)) 
((set) 
(cond ((= val *infinity*) 
;This is equivalent to stopping the clock. 
;This is almost equivalent to (alarm 0), except 
;that if the clock is already stopped, 
Aevum mi 


(let ((time-remaining (alarm 0))) 
(if stopped? *infinity* 
(begin (set! stopped? #t) 
time-remaining) ))) 


((= val 0) 
;This is equivalent to setting the alarm to 
;go off immediately. This is almost equivalent 


;to (alarm ©), except you force the alarm 
handler to run. 


(let ((time-remaining (alarm 0))) 
(if stopped? 
(begin (generate-clock-interrupt) 
*infinity*) 
(begin (generate-clock-interrupt) 
time-remaining)))) 


(else 


;This is equivalent to (alarm n) for n != 0. 
; Just remember to return *infinity* if the 
;clock was previously quiescent. 


(let ((time-remaining (alarm val))) 
(if stopped? 
(begin (set! stopped? #f) *infinity*) 
time-remaining)))))))))) 


ER 
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过 程 clock 用 到 了 三 个 内 部 状态 变量 : 


1. stopped? ， 表 示 时 钟 是 否 是 停止 的 ; 
. Clock-interrupt-handler ， 一 个 过 程 ， 表 示 用 户 希 望 在 时 钟 触发 后 执行 的 
动作 ; 
3. generate-clock-interrupt ， 另 一 个 过 程 ， 该 过 程 会 在 运行 用 户 定义 的 时 
钟 处 理 过 程 前 把 stopped? 设 为 false 。 


小 


过 程 clock 有 两 个 参数 。 如 果 第 一 个 参数 是 set-handler ° PMARMPA—*F 
数 作 为 时 钟 处 理 器 。 

如 果 第 一 个 参数 是 set ， 就 把 该 时 钟 触发 时 间 设 置 为 第 二 个 参数 ， 返 回 本 次 设 定 
前 定时 器 剩余 的 秒 数 。 代 码 对 0 > *infinity* 以 及 其 他 时 间 值 的 处 理 是 不 同 
的 ， 这 样 用 户 可 以 得 到 一 个 算术 上 对 alarm 透明 的 接口 。 


[1]. 还 有 一 些 其 他 的 信号 和 与 之 相应 的 处 理 器 ， sigaction 同样 可 以 使 用 它们 。 
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附录 F 索引 


【译注 】 由 于 英文 原 HTML 采 用 tex2page 自 动 生 成 ， 故 翻译 时 没有 采用 原 HTML 模 
板 ， 因 此 有 很 多 引用 信息 的 丢失 。 所 以 目前 中 文 版 索引 的 精确 度 仅 能 定位 到 “ 章 ”， 
更 精确 的 搜索 请 在 浏览 器 上 使 用 Ctrl-F 搜 索 页 面 文本 或 查看 英文 原文 。 
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Java 符号 表 设 计 的 相关 问题 


翻译 自 : http://www.bearcave.com/software/java/java_symtab.html 


很 多 Java 语 言 处 理 器 不 会 读 Java， 而 是 读 Java 类 文件 ， 并 从 类 文件 生成 符号 表 和 抽 
象 语法 树 。Java 类 文件 里 的 代码 在 语法 和 语义 上 都 是 正确 的 。 结 果 就 是 这 些 工具 的 
作者 避免 考虑 实现 一 个 Java 前 端 时 会 遇 到 的 很 多 困难 的 问题 。 


Java 编 程 语 言 的 设计 者 在 设计 这 个 语言 时 没有 考虑 实现 的 简单 性 。 确 实 应 当 如 此 ， 
为 更 重要 的 是 语言 容易 使 用 。 设 计 Java 编 译 器 前 端的 语义 分 析 时 遇 到 的 一 个 很 困 
难 的 问题 就 是 符号 表 的 设计 。 这 个 页 面 零 散 地 讨论 了 一 些 Java 符 号 表 设 计时 遇 到 的 
问题 。 


编译 器 的 前 端 主要 工作 包括 一 下 几 点 : 


1. 解析 源 代码 识别 正确 的 程序 ， 对 不 正确 的 结构 报错 。 对 BPI 这 个 Java 前 端 来 
说 ， 这 个 工作 由 ANTLR 生 成 的 一 个 解析 器 完成 。 解 析 器 的 输出 是 一 个 抽象 语法 
树 (AST) ， 包 括 了 源 代码 里 所 有 的 声明 。 


2. 从 Java 类 文件 中 读 取 声明 信息 ， 对 于 本 地 Java 编 译 器 来 说 ， 把 AST 编 译 为 字 节 
码 。 这 也 和 包括 了 下 面 的 transitive closure (图 中 所 有 可 以 从 根 节 点 到 达 的 节 
点 ， 从 这 个 角度 讲 这 个 图 是 一 个 类 组 成 的 树 ， 通 过 这 个 树 可 以 定义 所 有 需要 被 
编译 器 读 取 的 类 文件 。 


3. 处 理 AST 和 类 文件 中 的 声明 ， 构 造 符 号 表 。 一 旦 这 些 声明 节点 被 处 理 ， 就 从 
AST 2 ¥ 3 FR 4% © 


前 端的 输出 是 一 个 语法 和 语义 上 都 正确 的 AST， 每 个 节点 都 有 一 个 指针 指向 一 个 标 
TRH (如 果 这 是 一 个 叶 节 点 的 话 ) 或 一 个 类 型 (如 果 这 是 一 个 非 终 结 节点 或 着 一 个 
类 型 引用 ， 如 MyType.class) ° 


“符号 表 ” 这 个 词 通 常 指 代 一 种 比 表格 ( 比如 struct 组 成 的 数组 ) 数据 结构 。 当 符号 和 
类 型 被 解析 的 时 候 ， 符 号 表 必 须 反应 当前 正在 被 处 理 的 AST 的 作用 域 。 比 如 ， 下 面 
的 C 语 言 代码 有 三 个 叫 x 的 变量 ， 分 散在 不 同 的 作用 域 里 。 


static char x; 
int POO —{ 
aie ee 


float x; 


} 
} 


解析 符号 和 类 型 需要 遍历 AST 来 处 理 各 种 声明 。 在 遍历 AST 中 不 同 的 作用 域 时 ， 符 
号 表 始 终 反应 当前 作用 域 ， 这 样 在 查找 x 的 时 候 ， 当 前 作用 域 的 符号 会 被 返回 。 


符号 表 的 作用 域 结构 只 在 解析 符号 和 类 型 时 有 用 。 名 字 一 旦 解析 完成 。 ASTEA F 
和 它 的 符号 的 关系 可 以 直接 通过 一 个 指针 找到 。 


Pascal CHÈ (这 两 种 语言 只 有 简单 的 分 层 作 用 域 ) 的 编译 器 使 用 的 符号 表 通 常 
都 是 直接 镜像 语言 的 作用 域 。 每 个 作用 域 都 有 一 个 符号 表 。 每 个 符号 表 都 有 一 个 指 
针 指向 它 上 层 作 用 域 。 最 上 层 的 根 符号 表 就 是 全 局 符号 表 ， 包 含 了 全 局 的 符号 和 函 
数 (或 者 是 Pascal 里 的 过 程 ) 。 当 进入 一 个 部 数 作 用 域 时 ， 就 创建 一 个 函数 符号 
表 。 这 个 函数 符号 表 的 父 指针 指向 前 面 紧 接 着 的 一 个 “上 面 的 " 层 (或 是 全 局 符号 

表 ， 或 是 Pascal 里 一 个 闭合 的 过 程 或 函数 ) 。 一 个 块 符号 表 指 向 它 的 父 符 号 表 ， 也 
就 是 函数 符号 表 。 符 号 搜索 从 当前 作用 域 向 全 局 作用 域 向 上 遍历 进行 。 


一 旦 符号 和 类 型 解析 完毕 ， 作 用 域 层 级 就 不 需要 了 “。 然 而 函数 或 是 类 的 局 部 作用 域 
仍然 很 重要 ， 而 且 这 些 局 部 作用 域 必 须 仍 然 可 以 被 编译 器 访问 这 个 作用 域 里 的 所 有 
符号 。 上 比如， 为 了 在 函数 调用 时 分 配 堆栈 ， 编 译 器 必须 能 找到 所 有 和 与 这 个 方法 相关 
的 变量 。Java 编 译 器 必须 能 购 跟踪 类 的 成 员 ， 因 为 这 些 变量 会 被 分 配 到 可 以 被 垃圾 
回收 的 内 存 中 。 


大 多 数 面 向 对 象 语言 的 作用 域 都 比 过 程 语言 (CRPASCAL) 要 更 复杂 。C++ 支 持 
多 重 继承 ，Java 支 持 多 接口 定义 (多重 继承 的 一 种 正确 方式 ) 。 符 号 表 必 须 足够 高 
效 这 样 编 译 器 前 端 才 不 会 花 大 量 时 间 在 查找 符号 上 。Java 编 译 器 的 符号 表 设 计 主 要 
有 一 下 一 些 考 局: 


1. Java 有 一 个 非常 大 的 全 局 作用 域 ， 因 为 所 有 的 类 和 包 都 被 导入 到 这 个 全 局 的 命 
名 空间 。 全 局 符号 必须 存储 在 一 个 大 容量 的 数据 结构 中 ， 而 且 查 找 的 时 间 复 杂 
度 是 O(n)， 比 如 一 个 哈 希 表 。 


2. Java 有 非常 多 的 局 部 作用 域 (类 ， 方 法 和 块 ) 只 包含 较 少 的 符号 (相对 全 局 作 
用 域 而 言 ) ， 对 于 它们 使 用 支持 大 容量 和 高 速 查找 的 数据 结构 有 点 过 于 复杂 了 
(不 论 是 内 存 使 用 还 是 代码 复杂 度 ) 。 局 部 作用 域 应 该 用 一 个 简单 而 且 相 对 快 
速 《 比 如 O(log2(n))) 的 数据 结构 实现 。 比 如 平衡 树 和 跳跃 列表 。 


3. 符号 表 应 该 能 支持 一 个 作用 域 里 定义 多 个 相同 名 字 。 符 号 表 必 须 能 帮助 编译 器 
解析 两 种 相同 类 型 (比如 都 是 函数 ) 的 相同 名 字 在 同一 作用 域 中 多 次 声明 产生 
的 冲突 。 


在 C 语 言 里 一 个 作用 域 里 的 名 字 必 须 是 唯一 的 。 比 如 ， 在 C 语 言 里 一 个 叫 MyType 的 
类 型 和 一 个 叫 MyType 的 函数 是 不 被 允许 的 。 在 Java 里 一 个 作用 域 里 的 名 字 可 以 不 
是 唯一 的 。 名 称 会 根据 它 所 在 的 上 下 文 来 解析 。 上 比如 : 


class Rose { 
Rose( int val ) { juliette = val; } 
public int juliette; 

} // Rose 


class Venice { 
void thorn { 
garden = new Rose( 42 ); 
Rose( 86 ); 
garden.Rose( 94 ); 


} 


Rose Rose( int val ) { garden.juliette = val; } 
Rose garden; 
} // venice 


这 个 例子 中 有 一 个 名 为 Rose 的 类 ， 一 个 名 为 Rose 的 构造 函数 ， 一 个 名 为 Rose 的 方 
法 返回 一 个 类 型 为 Rose 的 对 象 。 编 译 器 必须 要 联系 上 下 文才 知道 哪个 是 哪个 。 而 且 
注意 引用 的 Rose 方法 和 garden 类 型 是 在 引用 后 面 声明 的 。 


Java 中 大 部 分 符号 作用 域 可 以 被 描述 为 一 个 简单 的 层次 关系 (低层 有 指向 高 层 的 指 
针 ) ， 除 了 和 Java 类 相关 的 接口 列表 。 注 意 接口 也 可 以 从 上 次 接口 继承 。 下 面 是 
Java 里 作用 域 的 分 级 : 


Global (objects imported via import statements) 
Parent Interface (this may be a list) 
Interface (there may be a list of interfaces) 
Parent class 
Class 
Method 
Block 


符号 表 和 语义 分 析 (检查 Java 解 析 器 返回 的 AST) 代码 必须 能 够 解析 一 个 符号 定义 
是 否 在 语义 上 是 正确 的 。 一 个 名 称 的 多 个 定义 是 允许 的 (比如 多 个 类 成 员 ) 。 然 而 
不 明确 的 符号 使 用 是 不 允许 的 : 
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一 个 类 可 以 继承 两 个 或 更 多 相同 名 字 的 属性 ， 或 从 两 个 接口 继承 或 一 个 从 父 类 

继承 一 个 从 接口 继承 。 只 有 在 试图 只 用 简称 来 模糊 的 引用 时 才 会 发 生 编译 错 

误 。 明 确 的 全 称 或 带 super 关键 字 的 属性 访问 是 允许 的 。 


父 类 和 接口 都 可 以 把 其 中 定义 的 符号 导入 本 地 作用 域 。 下 面 的 例子 中 符 
号 x 在 bar 和 fu 中 都 定义 了 ， 这 是 允许 的 ， 因 为 在 DoD 类 中 没有 引用 x © 
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interface bar { 
ink xX = 42> 
} 


elass “fu 
double x; 


} 


class DoD extends fu implements bar { 
int y; // No error, since there is no local reference to x 


} 


如 果 x 在 类 DoD 中 被 引用 了 ， 编 译 器 必须 报告 一 个 错误 ， 因 为 这 种 引用 是 不 明确 
的 


class DoD extends fu implements bar { 
int y; 


DoD() { 
Y= xX + 1; // Error, since the reference to x is ambiguous 
} 
} 


简称 的 不 明确 性 还 会 出 现在 接口 定义 的 内 部 类 和 父 类 中 : 


interface BuildEmpire 
{ 
class Khubilaikahn { 
buble ant a; b,c; 
} 
} 


class GengisKahn 
{ 
class Khubilaikahn { 
public double x, y, Z; 
} 
} 


class mongol extends Gengiskahn implements BuildEmpire 


{ 


void mondo() { 
KhubilaiKahn TheKahn; // Ambiguous reference to class Khubila: 
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Java 不 支持 类 的 多 重 继承 ， 但 是 允许 一 个 类 实现 多 个 接口 或 一 个 接口 扩展 (继承 ) 
多 个 接口 
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一 个 接口 可 以 继承 多 个 相同 的 名 字 ， 这 种 情况 不 会 引起 编译 错误 。 然 而 在 接口 
内 部 试图 用 简称 来 引用 这 个 属性 会 导致 编译 错误 ， 因 为 这 样 的 引用 是 不 明确 
的 。 


比如 ， 在 下 面 的 代码 中 key 是 不 明确 的 : 


interface Maryland 


String key = "General William Odom"; 


} 


interface ProcurementOffice 


String key = "Admiral Bobby Inman"; 
} 


interface NoSuchAgency extends Maryland, ProcurementOffice 


String RealkKey = key + "42"; // ambiguous reference to key 


} 


当当 语义 分 析 查 找 符 号 key 时 ， 符 号 表 必 须 允 许 语义 检查 代码 来 决定 有 两 个 

对 key 的 定义 。 符 号 表 必 须 对 作用 域 里 的 符号 分 类 〈 成 员 和 成 员 在 一 起 ， 类 和 类 
在 一 起 ) 。 不 像 有 些 符号 〈 方 法 ， 类 和 成 员 变 量 ) 没有 分 类 因为 它们 可 以 通过 上 下 
文 区 分 。 


一 个 方法 的 多 次 定义 不 会 在 Java 中 产生 语义 错误 ， 因 为 没有 多 重 继承 。 比 如 ， 如 果 
一 个 同名 方法 从 两 个 接口 中 继承 ， 这 个 方法 要 么 是 相同 的 ， 要 么 是 宛 余 版 本 。 如 果 
有 一 个 本 地 方法 和 一 个 在 父 类 中 定义 的 方法 有 相同 的 名 字 和 参数 (签名 ) 。 本 地 方 
法 会 在 一 个 "更 低 的 "作用 域 并 且 履 盖 父 类 的 。 


Java 符号 表 的 实现 


符号 表 需 求 

考虑 以 上 讨论 的 几 点 ， 一 个 符号 表 必 须 满足 以 下 需求 : 

1. 支持 一 个 标识 符 的 多 种 定义 。 

2. 在 全 局 符号 库 中 快速 查找 ， 时 间 复 杂 度 O(n) 

3. 在 局 部 (类 、 方 法 和 块 ) 符号 中 相对 快速 的 查找 O(log2(n)) 


4. 支持 Java 的 分 层 作 用 域 
5. 可 以 按照 符号 类 型 搜索 (MR > TK BR) 


6. 快速 决定 一 个 符号 定义 是 否 是 不 明确 的 


符号 的 生存 其 


类 似 C 的 语言 可 以 一 次 编译 一 个 函数 。 全 局 符号 表 必 须 保留 当前 文件 中 函数 和 它们 
的 参数 的 符号 信息 。 但 是 其 他 局 部 符号 信息 可 以 在 函数 编译 后 忽略 。 当 编译 器 处 理 
完 一 个 ,c 文件 (和 被 它 引用 的 文件 ) 中 所 有 的 函数 后 ， 所 有 的 符号 都 被 忽略 了 。 


C++ 可 以 用 类 似 的 方法 来 编译 。 定 义 在 头 文件 中 的 类 引用 一 个 对 象 。 当 文件 处 理 后 
所 有 的 符号 可 以 忽略 了 。 


Java 更 复杂 。Java 编 译 器 必须 读 取 Java 符 号 定义 来 构建 Class 树 ， 这 个 树 用 来 确定 
当前 正在 编译 的 类 所 引用 的 所 有 类 文件 。 也 就 是 包含 main 方法 的 对 象 。 这 点 出 发 
可 以 找到 所 有 被 引用 的 类 。 


理论 上 一 旦 所 有 引用 的 Java 符 号 的 类 被 编译 后 ， 这 些 符号 就 可 以 被 忽略 了 。 实 际 上 
这 样 造成 如 此 多 的 问题 还 不 如 换 一 个 内 存 大 一 点 的 系统 。 所 以 Java 符 号 在 整个 编译 
期 间 都 存在 。 


构建 符号 表 作 用 域 


符号 表 中 分 层 的 作用 域 只 在 语义 分 析 时 有 用 。 分 析 结 来 后 ， 所 有 的 符号 〈 标 识 符 节 
A) 都 会 指 到 正确 的 符号 上 。 然 而 ， 一 旦 作用 域 构建 完 ， 它 就 在 那里 了 。 


每 个 局 部 作用 域 ( 块 、 方 法 和 类 ) 有 一 个 局 部 的 符号 表 指向 包围 它 的 符号 表 。 在 顶 
层 是 全 局 符号 表 包 含 所 有 全 局 类 和 导入 的 符号 。 进 行 语义 分 析 时 从 局 部 符号 表 向 上 
层 搜索 ， 搜 索 每 个 符号 表 直 到 全 局 符号 表 搜 索 完 。 如 果 搜 完全 局 符号 表 还 没有 乒 
到 ， 这 个 符号 就 不 存在 。 


Java 的 作用 域 不 是 一 个 由 唯一 的 符号 组 成 的 简单 分 层 结构 〈 像 C 语 言 一 样 ) 。 一 个 
符号 可 能 会 有 多 个 定义 (类 成 员 、 方 法 或 类 名 ) 。 一 个 给 定 作用 域 的 符号 可 能 来 自 
多 个 地 方 。 比 如 下 面 的 Java 代 码 中 类 gin 和 接口 tonic 在 同一 层 定义 了 相同 的 


ke a 


符号 。 


interface tonic { 
int water = 1; 
int quinine = 
int sugar = 3; 
int TheSame = 


2; 


4; 
} 


class gin { 
public int water, alcohol, juniper; 
public float TheSame; 


} 


class g_and_t extends gin implements tonic { 
class contextName { 
publie Int xf) ez, 
} // contextName 


public int contextName( int x ) { return x; } 
public contextName contextName; 


作用 域 、 局 部 变量 、 参 数 


Java 里 的 局 部 变量 是 方法 中 的 变量 ， 这 些 变量 被 分 配 到 一 个 由 块 或 语句 创建 的 堆栈 
中 。 如 : 


class bogus { 
public void foobar() { 
Imera [oe rep 


{ // this is a scope block 
UNE Xp Mp Zr 
} 


不 像 C 或 C++，Java 不 允许 重新 声明 局 部 变量 : 
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如 果 一 个 标识 符 被 声明 为 局 部 变量 ， 而 在 其 作用 域内 已 有 一 个 参数 或 本 地 变 
量 ， 编 译 器 会 报错 。 因 此 下 面 的 例子 无 法 通过 编译 : 


class Test { 


public static void main Strang[]) args ) 4 
ame als 


om eS Oa 1b oi EO local var lanl 
redeclared 
System.out.printin(i); 





本 地 局 部 变量 允许 被 重 定义 为 类 成 员 ， 这 让 变量 重 定义 检查 也 成 为 语义 分 析 的 一 部 
分 工作 © 

向 前 引用 

向 前 应 用 是 引用 一 个 声明 写 在 该 引用 后 面 的 符号 。 


当 一 个 类 属性 被 初始 化 时 ， 初 始 器 必须 在 前 面 已 经 声明 并 且 初 始 化 了 。 下 面 的 例子 
(摘自 JLS6.3) 会 报错 : 


¢lass Test { 
int i = j; // compile-time error: incorrect forward reference 
int j} = 1; 


rr -A 


本 地 局 部 变量 也 不 能 向 前 引用 ， 如 : 


class geomancy { 
public float circleArea( float r ) { 
float area; 


area = pie * r* 1; // undefined variable 'pie' 
float pie = (float)Math.PI; 


return area; 


L 
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然而 ， 向 前 引用 允许 从 一 个 局 部 作用 域 (一 个 方法 ) 引用 一 个 在 同一 个 类 中 定义 的 
类 成 员 。 比 如 ， 在 下面 的 Java 代 码 中 方法 getHexChar 向 后 引用 了 类 成 


员 hexTab 


class HexStuff { 
public char getHexChar( byte digit ) { 


digit = (byte)(digit & Oxf); 
char ch = hexTab[digit]; // legal forward reference to class r 


return ch; 
} // getHexchar 


private static char neol = new char[] { 
LORS piles 12 ie ae TAIT Stans '6! T "91, rar, Dey oe ol 
}; 


} // HexStufFf 





Java 中 最 顶层 编译 单元 是 包 ， 要 么 是 一 个 显 式 命名 的 包 或 是 一 个 未 命名 的 包 (E 
& main FN BR) 。 所 有 的 包 都 自 动 导入 了 默认 的 包 java.lang.* 和 其 他 被 
本 地 系统 所 需要 的 包 。 用 户 可 以 显 式 的 导入 其 他 包 。 


当 包 A 导入 了 包 B， 包 B 提 供 了 : 


e 用 public 修饰 符 标 记 的 所 有 类 和 接口 
eo FE (如 导入 到 B 中 的 其 他 和 包 ) 


如 果 B 包 导入 了 包 X， 其 中 有 一 个 公开 类 foo ， 这 个 类 可 以 用 全 称 X.foo 引用 。 
给 符号 表 加 入 了 另 一 层 复杂 度 。 一 个 包 好 比 一 个 对 象 ， 该 对 象 定义 了 一 堆 类 ， 接 

see o 一 旦 包 被 编译 器 5 读 取 ， 在 下 面 如 果 有 相同 的 导入 语句 就 不 会 再 读 了 ， 

为 它 的 定义 编译 器 都 已 经 知道 了 。 

一 个 包 所 定义 的 类 、 接 口 和 和 包 被 导入 到 当前 包 的 全 局 作用 域 。 在 Java 代 码 中 ， 导 入 


的 包 所 定义 的 类 名 可 以 用 简称 来 引用 (JLS6.5.4) ， 在 被 导入 的 包 的 子 包 中 定义 的 
类 名 可 以 用 全 称 引 用 。 然 而 在 符号 表 中 所 有 的 类 名 都 与 一 个 全 名 关联 着 。 


符号 表 实 现 概 述 


.支持 一 个 给 定 标识 符 的 多 重 定义 。 


所 有 有 相同 名 字 的 标识 符 都 被 放 在 一 个 容器 中 。 就 像 上 面 提 到 的 ， 一 个 标识 符 
可 能 是 一 个 类 成 员 ， 方 法 名 或 一 个 类 名 。 一 个 定义 可 以 有 多 个 实例 。 比 如 上 面 
Java 代 码 中 类 成 员 TheSame 有 两 个 定义 。 容 器 可 以 用 标识 符 的 类 型 (成 员 ， 
方法 或 类 ) 来 搜索 ， 而 且 可 以 快速 决定 是 否 某 个 类 型 被 多 次 定义 〈 确 定性 引 
A) 。 如 果 一 个 对 象 命名 了 ， 符 号 会 有 一 个 属性 指向 它 的 上 层 (函数 或 类 ) © 
对 于 一 个 块 这 个 指针 是 Null。 注 意 上 层 不 一 定 是 上 层 作 用 域 ， 定 义 在 类 gin 和 
接口 tonic 中 的 符号 在 同一 个 作用 域 ， 但 是 它们 有 不 同 的 上 层 。 


2. 快速 的 全 局 搜索 全 局 符号 表 用 大 容量 哈 希 表 实 现 〈 哈 硕 表 能 支持 大 量 符号 不 用 
长 的 哈 硕 链 ) 


3. 包 信息 一 旦 一 个 包 被 导入 全 局 作用 域 ， 这 个 包 就 不 再 被 引用 了 ， 导 入 的 类 名 
(类 或 接口 ) 可 以 被 引用 ， 就 如 同 它 们 是 在 当前 编译 单元 中 定义 的 (通过 简 
称 ) 。 子 包 也 成 了 全 局 作用 域 中 的 对 象 。 包 类 型 名 和 额外 的 子 包 可 以 用 全 称 引 
Flo 包 定 义 保存 在 一 个 分 开 的 包 表 里 。 包 从 这 个 表 里 导 入 到 编译 单元 的 全 局 作 
用 域 。 包 信息 在 整个 编译 期 间 都 存在 。 


4. 局 部 查找 通常 局 部 Java 作 用 域 中 的 符号 很 少 。 本 地 符号 查找 必须 要 快 ， 但 是 不 
用 像 全 局 那么 快 ， 因 为 通常 符号 很 少 。 我 设想 了 三 种 数据 结构 来 实现 局 部 符号 
表 : 


o 跳跃 列表 (也 可 以 查看 Thomas Nienann 关 于 跳跃 列表 的 精彩 网 页 
o 红 黑 树 (一 种 平衡 二 又 树 ) 
o 简单 的 二 又 树 对 于 小 的 符号 表 这 三 种 数据 结构 的 搜索 时 间 都 差不多 。 二 又 
树 在 测试 中 是 最 小 最 简单 的 暮 法， 所 以 选择 它 作为 局 部 符号 表 。 
5. 支持 Java 层 次 作用 域 每 个 符号 表 都 包含 一 个 上 层 作 用 域 的 指针 。 
6. 支持 以 符号 类 型 搜索 语义 分 析 知 道 它 所 搜索 符号 的 上 下 文 (这 个 符号 是 成 员 、 
方法 还 是 类 ) 。 符 号 表层 次 以 标识 符 和 类 型 来 搜索 。 
7. 快速 检测 一 个 符号 定义 是 否 是 模糊 的 多 个 相同 类 型 的 符号 定义 (比如 两 个 成 
员 ) 被 串 在 一 起 。 如 果 next 指针 是 NULL， 那 就 有 多 个 定义 。 错 误 报 告 代 码 
可 以 用 这 些 定义 报告 给 用 户 冲突 的 符号 是 在 哪里 定义 的 。 


= 


符号 表 构 造 


在 方法 被 处 理 之 前 ， 所 有 类 成 员 引 用 都 被 处 理 并 塞 进 符号 表 。 这 样 在 方法 中 对 成 员 
的 引用 就 可 以 正确 的 解析 了 。 


方法 内 的 声明 被 顺序 处 理 。 如 果 有 函数 中 一 个 名 字 的 引用 不 能 “看 到 "， 就 报告 一 个 错 
误 (未 定义 的 名 称 ) © 


递归 编译 和 符号 表 


当 一 个 编译 单元 ( 包 ) 被 编译 时 ， 所 有 它 引 用 的 类 和 和 包 信 息 必须 存在 。《Java 语 言 
规范 》 没 有 准确 定义 这 是 怎么 做 的 。 规 范 中 只 说 被 编译 的 Java 代 码 可 以 存在 一 个 数 
据 库 里 或 在 一 个 目录 下 ， 这 个 目录 结构 和 包 和 类 的 全 名 一 一 对 应 。 类 和 和 包 必 须 可 以 
访问 。《Java 虚 拟 机 规范 》 定 义 了 Java ,class 字 节 码 文 件 中 的 信息 ， 但 是 没有 


说 编译 顺序 。 尽 管 没有 规范 Java 是 如 何 编译 的 ， 但 还 是 有 "通用 方法 "。 至 少 对 于 这 
个 设计 ，“ 通 用 方法 ”基于 Sun 公 司 的 javac 编译 器 和 微软 的 Visual J++ 编译 
#& jvc ° 


当 一 个 编译 单元 编译 完成 时 ， 所 有 该 编译 单元 所 引用 的 外 部 类 信息 被 记录 在 编译 生 
成 的 字 节 码 文 件 中 。 字 节 码 文件 可 以 打包 成 jar 文 件 。 就 是 一 个 用 ZIP 文 件 格式 压缩 

存放 的 字 节 码 文件 层次 。 字 节 码 或 jar 文 件 存 放 在 当前 文件 夹 或 CLASSPATH 环 境 变 
量 指定 的 目录 下 。 为 了 让 这 个 机 制 工 作 。 文 件 名 最 好 和 相关 联 的 类 名 保持 一 致 (如 
类 FooBar 用 FooBar.java 实现 ) 

如 果 ， 当 搜索 类 定义 时 ，Java 编 译 器 只 找到 一 个 ,java 文件 定义 了 这 个 类 或 者 这 
个 .java 文件 的 时 间 戳 比 相应 的 字 节 码 文 件 要 新 的 话 ，Java 编 译 器 会 重新 编译 这 
个 类 定义 。 

当 编 译 顶 层 的 编译 单元 时 ，Java 编 译 器 跟踪 被 导入 到 当前 编译 单元 的 包 对 象 (一 个 
包括 了 多 个 类 和 子 包 的 包 ) 。 包 中 不 是 public 的 类 定义 不 会 被 编译 器 保存 ， 因 为 它 

们 无 法 在 包 的 外 面 看 到 。 


lan Kaplan, May 2, 2000 Revised most recently: May 31, 2000 


